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THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR WITHIN. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY DIGITAL. 
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ABSTRACT 

MAINDEC-11-DZDPG RUNS THE SELFTEST FOR THE VT62 TERMINAL AND EXERCISES 
THE LINK BETWEEN THE TERMINAL AND THE HOST. THIS PARTICULAR VERSION 
SUPPORTS MULTIDROP, FULL DUPLEX COMMUNICATION VIA THE  DUP-11 
COMMUNICATION INTERFACE. Sey = tenn" (MAINDEC-11-DZ0ZC AND 
MAINDEC-11-DZ2DVP) SUPPORT THE DZ-11 A DV-11 COMMUNICATION INTERFACES 
RESPECTIVELY. THE PROGRAM IS XXOP. COMPATIBLE AND SUPPORTS SEQUENTIAL 
TESTING OF UP TO 8 VT62'S. PLEASE READ ALL SECTIONS OF THIS DOCUMENT 
‘rep rey USING THE PROGRAM. PAY PARTICULAR ATTENTION TO SECTIONS 
' U . 


DEFINITIONS 

MODEM - EQUIPMENT. ALSO KNOWN AS A “DATASET”. WHICH PERFORMS THE 
MODULATION/DEMODULATION OF DATA SIGNALS. THIS UNIT PROVIDES TIMING 
FOR SYNCHRONOUS COMMUNICATION DEVICES. 

MODEM ELIMINATOR - EQUIPMENT WHICH CONNECTS TWO SYNCHRONOUS DEVICES USING 
A CABLE RATHER THAN TELEPHONE VOICE LINES. THE ELIMINATOR HAS A 
CLOCK FOR TIMING. 

DDCMP PROTOCOL - DEC'S COMMUNICATION LINE PROTOCOL. 

UUT - UNIT UNDER TEST. 

PTABLE - A TABLE OF INFORMATION. WITH ENTRIES FOR EACH UNIT UNDER TEST, 
THAT DESCRIBES THE HARDWARE (BUS ADDRESS. VECTOR. ETC. ) 

DUP - SINGLE LINE. SYNCHRONOUS COMMUNICATION INTERFACE. 

D2 - EIGHT LINE. MULTIPLEXED. SYNCHRONOUS COMMUNICATION INTERFACE. 

DV - SIXTEEN LINE, MULTIPLEXED. SYNCHRONOUS COMMUNICATION INTERFACE. 

CRC CHECKSUM - CHECKSUM USED IN DEC NETWORK PROTOCOL (CYCLIC RESUNDANCY 


CHECK). 

MICRODIAGNOSTIC - THE MICROCODE IN THE VT62 THAT PERFORMS THE DIAGNOSTIC 
CHECKOUT OF THE HARDWARE. (ALSO KNOWN AS "SELF TEST) 

SELF TEST - SEE “MICRODIAGNOSTIC”. 


DESIGN NOTES 

THIS PROGRAM WAS DESIGNED AND IMPLEMENTED USING STRUCTURED TECHNIQUES. 
THE PROCEDURE CAUSED THE PROGRAM TO HAVE SOME OPERATIONAL CHARACTERISTICS 
WHICH ARE OF INTEREST TO THE USER. THESE CHARACTERISTICS ARE DISCUSSED 
IN THIS SECTION. THiS DISCUSSION IS NOT VITAL TO LEARNING HOW TO OPERATE 
THE PROGRAM HOWEVER. 


THE MOST IMPORTANT OPERATIONAL CHARACTERISTIC OF STRUCTURED DESIGN .AS IT 
AFFECTS THE USER. IS HOW ERRORS ARE REPORTED. THE TOP-DOWN DESIGN OF THE 
PROGRAM RESULTS IN A BOTTOM-UP REPORT OF ERROR INFORMATION. SEVERAL 
LINES OF ERROR INFORMATION ARE PRINTED AS EACH PROGRAM SECTION REPORTS 
ITS LEVEL OF INFORMATION. AN EXAMPLE OF THIS TYPE OF ERROR LOG WOULD BE 
A DUP ERROR. THE FIRST ERROR MESSAGE WOULD GIVE SPECIFIC DEVICE 
INFORMATION SUCH AS REGISTER CONTENTS AND THEN RETURN CONTROL TO THE NEXT 
LEVEL AT THE NEXT LEVEL. THE LOGICAL DEVICE NUMBER OR DEVICE SERIAL 
NUMBER WOULD BE REPORTED. AT THE LEVEL ABOVE THAT. STILL MORE GENERAL 
oP cere WOULD BE GIVEN. THE REPORTS CONTINUE UNTIL THE HIGHEST LEVEL 
1S HED. 
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COMMENT FIELOS IN THE LISTING WITH SQUARE BRACKETS ( ) REFER TO 
FUNCTIONAL BLOCKS IN THE DESIGN AND HAVE NO SIGNIFICANCE TO THE USER. 
THEY ARE RETAINED FOR USE BY PROGRAM MAINTAINERS. 


DOCMP 

THIS SECTION GIVES A VERY BRIEF DESCRIPTION OF OODCMP AS USED BY THIS 
DIAGNOSTIC. THE DESCRIPTION IS BY NO MEANS COMPLETE: IT IS INTENDED TO 
HELP THE USER UNDERSTAND ERROR REPORTS. 


THERE ARE THREE TYPES OF DDCMP MESSAGES: CONTROL. DATA AND BOOTSTRAP. 
THE BOOTSTRAP MESSAGE iS NOT USED BY THIS DIAGNOSTIC. THE DATA MESSAGES 
CONSIST OF A 6-BYTE HEADER. A 2-BYTE CRC FOR THE HEADER. THE DATA ITSELF 
AND A 2-BYTE CRC FOR THE DATA. CONTROL MESSAGES CONSIST OF THE HEADER 
(AND ITS CRC) ONLY. ALL CONTROL MESSAGES HAVE AN “ENQ" CHARACTER AS THE 
FIRST BYTE. ALL DATA MESSAGES ARE NUMBERED SO THAT EACH STATION ON THE 
LINK CAN KEEP TRACK OF WHICH MESSAGES ARE TRANSMITTED PROPERLY. ALL 
MESSAGES HAVE A STATION ADDRESS IN THE HEADER SO THAT MESSAGES ARE 
DIRECTED TO AND FROM THE PROPER STATIONS ON A MULTIDROP LINE. 


THERE ARE FOUR CONTROL MESSAGES USED BY THIS DIAGNOSTIC: ACK. NAK, STRT 
AND STACK. ACK IS AN ACKNOWLEDGEMENT THAT THE LAST MESSAGE SENT WAS 
PROPERLY RECEIVED. NORMALLY. MESSAGES ARE ACKNOWLEDGED BY SENDING A DATA 
MESSAGE WITH THE NUMBER OF THE LAST MESSAGE IN THE HEADER. ACK'S ARE 
USED WHEN THERE IS NO DATA MESSAGE TO SEND BACK. NAK IS A_ NEGATIVE 
ACKNOWLEDGEMENT FOR THE LAST MESSAGE SENT AND INDICATES THE REASON FOR 
THE ERROR. STRT IS USED TO INITIATE COMMUNICATION BETWEEN TWO STATIONS. 
THE RECEIVING STATION SETS ITSELF UP AND ACKNOWLEDGES THE STRT WITH A 
STACK, OR START ACKNOWLEDGE. THE STRT-STACK SEQUENCE IS USED BEFORE AND 
AFTER EACH TEST. ALL MESSAGES ARE REQUIRED TO BE ACKNOWLEDGED WITH 
EITHER A DATA MESSAGE OR AN ACK. 


EQUIPMENT REQUIREMENTS 

THIS PROGRAM REQUIRES A PDP-11 WITH A MINIMUM OF 16K CORE AND A_ CONSOLE 
TERMINAL. A CLOCK OPTION IS NOT REQUIRED, BUT ONLY ROUGH TIMING IS 
AVAILABLE WITHOUT ONE. THE POP-11 CONSOLE SWITCH REGISTER IS NOT USED. 
ONE OR MORE OUP-11'S MUST BE CONNECTED TO THE TERMINALS UNDER TEST VIA 
COMMUNICATION LINES THROUGH EITHER MODEMN'S OR MODEM ELIMINATORS. THE 
VT62'S MUST BE IN SYNCHRONOUS MODE AND ON-LINE. THE TERMINAL ADDRESS 
SWITCHES ON THE CONTROL BOARD MUST BE SET TO MATCH THE TERMINAL ADDRESS 
ASSIGNED TO THE LOGICAL UNIT (SEE SECTION 4. 0) 


LOADING PROCEDURE 
THIS PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER. IT 
MAY ALSO BE LOADED FROM PAPER TAPE OR DISK USING XXDP PROCEDURES. 


STARTING AND RUNNING THE PROGRAM 
THE STARTING ADDRESS FOR THE PROGRAM 1S 200. THE PROGRAM WILL FIRST ASK 
1F A CLOCK (KW11-L OR KW11-P) 1S AVAILABLE. IT WILL THEN ASK iF A LINE 
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PRINTER 1S AVAILABLE. IF A LINE PRINTER IS SPECIFIED, THE PROGRAM WILL 
ASK FOR ITS ADDRESS (DEFAULT = 177514). THE PROGRAM ALSO ASKS FOR MEMORY 
S1ZE, Q-BUS OPTION AND LINE FREQUENCY. IF NEITHER CLOCK IS _ SPECIFIED. 
THE PROGRAM WILL ASK THE USER TO TYPE TWO CHARACTERS, FIVE SECONDS APART, 
IN ORDER TO PROVIDE ROUGH TIMING. 


THE PROGRAM WILL THEN PROMPT THE USER BY TYPING A “>”. NOW THE USER MAY 
TYPE ONE OF SEVEN COMMANDS: STAC(RT), RES(TART). CON(TINUE). ZFL(AG). 
ADD, OROCP) OR DIS(PLAY), WHERE THE LETTERS IN PARENTHESIS NEED NOT BE 
TYPED. IF A TYPING MISTAKE 1S MADE, THE RUBOUT KEY IS USED TO DELETE THE 
LAST CHARACTER(S) TYPED. THE PROGRAM WILL TYPE A MESSAGE IF THE COMMAND 
iS INVALID. EACH OF THESE COMMANDS IS EXPLAINED IN THE SECTIONS BELOW. 
SWITCHES ARE USED TO SET SOFTWARE FLAGS SUCH AS “LOOP ON ERROR". THE 
FLAGS USED BY THIS PROGRAM ARE DESCRIBED IN SECTION 4. 8. 


START 

THE START COMMAND (STA) ZEROS ALL FLAGS (PRINT ALL ERROR MESSAGES AND DO 
NOT LOOP WITHIN TESTS) AND INITIATES THE OPERATOR DIALOGUE. AT THIS 
POINT, THE DEVICE TABLE (PTABLE) IS EMPTY AND THE OPERATOR MUST USE THE 
DIALOGUE TO DESCRIBE ALL UUT'S AS SHOWN BELOW THE NUMBERS IN ool 
BRACKETS, , RELATE THE TYPEOQUT TO THE EXPLANATION BELOW AND ARE 
TYPED IN ACTUAL OPERATION. THE PROCEDURES FOR HANDLING TYPING ERRORS ARE 
ALSO DESCRIBED BELOW. CR REFERS TO THE RETURN KEY (CARRIAGE RETURN). 


DIALOGUE 
# UNITS ? (DECIMAL) 1 
DUP ADDRESS: 7? (OCTAL) NNNNNN 2 
DUP VECTOR: ? (OCTAL) NNN 3 
DUP BUS PRIORITY: ? (OCTAL) N 4 


TERMINAL ADDRESS: 7? ty ong N 5 
CHANGE S.W. 7? (Y OR N 6 


HOW MANY INITIATE TRIES BEFORE ABORT 7? (OCTAL) 10 7 
USE ALL ZERO'S FOR LOOPBACK DATA ? (Y OR N) Y 8 
EXPLANATION 
1 TYPE THE TOTAL NO. OF UUT'S IN DECIMAL. QUESTIONS 2 
THROUGH 5S WILL BE REPEATED UNTIL ALL UUT'S HAVE BEEN 
DESCRIBED. THE USER DOES NOT HAVE TO ANSWER THESE QUESTIONS 
FOR EACH OUP HOWEVER, IF THERE ARE MULTIPLE UUT'S PER DUP. 
a ge came FOR QUESTION 5 SHOWS HOW TO ENTER MULTIPLE 


2 TYPE THE BUS ADDRESS OF THE DUP. THIS MUST BE AN EVEN OCTAL 
NUMBER NOT GREATER THAN 177776. THE USER MAY TYPE CR TO USE 
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THE DEFAULT VALUE: NNNNNN. 

TYPE THE VECTOR ADDRESS FOR THE DUP. 
OCTAL NUMBER NOT GREATER THAN 376. THE USER MAY TYPE CR TO 
USE THE DEFAULT VALUE: NNN. 

TYPE THE BUS PRIORITY LEVEL OF THE DUP. THIS MUST BE 
DIGIT FROM O TO 7. AGAIN. THE USER MAY TYPE CR TO GET THE 
DEFAULT VALUE: N. 

TYPE THE TERMINAL ADDRESS FOR EACH TERMINAL ATTACHED TO THE 
DUP. SEPARATE EACH ADDRESS WITH A COMMA. THIS IS THE 
ADDRESS SELECTED BY THE SWITCHES ON THE 170 BOARD IN THE 
TERMINAL AND IS AN OCTAL NUMBER BETWEEN O AND 377. THE USER 
MAY TYPE CR TO GET THE DEFAULT VALUE: N. 

IF THE USER WISHES TO CHANGE EITHER OF THE TWO SOFTWARE 
PARAMETERS DESCRIBED FOR QUESTIONS 7 OR 8. HE MUST ANSWER 
THIS QUESTION BY TYPING “Y". IF THE USER WISHES TO BYPASS 
QUESTIONS 7 AND 8, HE TYPES “N”. 

TYPE THE NUMBER OF TIMES THE PROGRAM IS TO ATTEMPT TO 
INITIALIZE A DUP BEFORE ABORTING THE UNIT. THE USER MAY 
TYPE ANY OCTAL NUMBER BETWEEN 0 AND 177777. TYPE CR TO 
DEFAULT TO 10 (OCTAL) ATTEMPTS. 

IF THE USER TYPES “Y",. THE LOOPBACK DATA WILL BE 255 ZERO 
BYTES. \F THE USER TYPES "N", THE LOOPBACK DATA WILL BE A 
PATTERN OF ALTERNATING 1 AND O BITS. SEE SECTION 8.2 FOR 
DETAILS ON THE LOOPBACK TEST. 


EXAMPLE OF DIALOGUE 
ASSUME THE FOLLOWING HARDWARE CONFIGURATION: A ou? 
(160000, 300,3) WITH TWO TERMINALS (ADDRESSES 0 AND 1). A 
SECOND DUP (160010. 320.3) WITH A SINGLE TERMINAL (ADDRESS 5) 
AND A THIRD DUP (170000, 340.4) WITH THO TERMINALS (ADDRESSES 
1 AND 2). THE USER WOULD USE THE FOLLOWING DIALOGUE TO SET 
uP a acre 
»ST 


THIS MUST BE AN EVEN 


# UNITS ? (DECIMAL) 5 

DUP ADDRESS: ? (OCTAL) 1607260 

DUP VECTOR: ? (OCTAL) 310 300 

DUP BUS PRIORITY: ? (OCTAL) 4 3 
TERMINAL ADDRESS: ? (OCTAL) O 0,1 

DUP ADDRESS: ? (OCTAL) 160000 160010 
DUP VECTOR: ? (OCTAL) 300 320 

DUP BUS PRIORITY: 7? (OCTAL) 3 

TERMINAL ADDRESS: ? <OCTAL: 1 § 
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307 
308 DUP ADDRESS: ? (OCTAL) 160010 170000 
310 DUP VECTOR: ? (OCTAL) 320 340 
312 DUP BUS PRIORITY: ? (OCTAL) 3 5 
314 7 TERMINAL ADDRESS: ? (OCTAL) 5S 1,2 
316 CHANGE S. W. 2 (Y ORN) N 
213 (NOTE WHERE CR WAS USED TO ACCEPT THE DEFAULT) 
320 TYPING ERRORS 
321 
322 QD) THE RUBOUT KEY 1S USED TO DELETE ANY CHARACTERS WHICH ARE IN 
324 (2) IF THE RESPONSE 1S NOT WITHIN LIMITS OR IS IN THE WRONG 
325 FORMAT, THE PROGRAM WILL NOTIFY THE USER AND ASK THE 
326 QUESTION AGAIN. 
327 (3) WHEN ENTERING MULTIPLE TERMINAL ADDRESSES FOR A SINGLE DUP. 
328 THE USER MAY NEGLECT TO TYPE ONE OR MORE ADDRESSES. IN SUCH 
329 A CASE, THE USER MERELY ENTERS THE SAME DUP ADDRESS. VECTOR 
330 AND PRIORITY IN THE NEXT SERIES OF QUESTIONS AND THEN ENTERS 
331 THE REMAINING TERMINAL ADDRESSES. REMEMBER; THE SERIES OF 
332 QUESTIONS (2 THROUGH 5) WILL BE RE-ASKED UNTIL ALL UUT'S 
333 HAVE BEEN ACCOUNTED FOR 

4 
335 U2 RESTART 
336 THE RESTART COMMAND (RES) STARTS THE PROGRAM WITHOUT CLEARING THE PTABLE. 
337 ALL FLAGS REVERT TO THEIR INITIAL STATE UNLESS THE FLAG SWITCH IS USED TO 
338 CHANGE -THEM (SECTION 4.8). THE OPERATOR DIALOGUE DESCRIBED IN 4.1 DOES 
339 NOT TAKE PLACE UNLESS REQUESTED. WHEN THIS COMMAND IS USED, THE PROGRAM 
340 WILL ASK IF THE USER WISHES TO CHANGE THE HAROWARE TABLE AND IF HE WISHES 
341 TO CHANGE THE SOFTWARE TABLE. IF THE USER ANSWERS YES (BY TYPING "“Y") TO 
2y2 THE HARDWARE TABLE QUESTION, THAT PORTION OF THE DIALOGUE DESCRIBED IN 
243 SECTION 4.1 BEGINNING WITH QUESTION 1 ENDING WITH QUESTION 5 WILL TAKE 
344 PLACE. {Ff THE USER ANSWERS YES TO THE SOFTWARE TABLE QUESTION, HE WILL 
us BE ASKED QUESTIONS 7 AND 8 
346 
347 THE MOST COMMON USE OF THIS COMMAND IS TO CHANGE RUN-TIME FLAGS OR TO 
348 ADD/DROP UNITS. THESE FLAGS ARE DESCRIBED IN SECTION 4.8 - SWITCH 
349 OPTIONS. TYPING A” C" WILL FORCE THE SUPERVISOR TO ISSUE A PROMPT 
350 CHARACTER (">") SO THAT THE USER MAY USE THE RESTART COMMAND FOR THIS 
351 PURPOSE. NOTE: IF THE USER USES THE START COMMAND AFTER A C, HE WILL 
352 HAVE TO REENTER ALL DEVICE INFORMATION! 
353 
354 43 CONTINUE 
355 THE CONTINUE COMMAND WILL RESTART THE PROGRAM AT THE TEST WHICH WAS 
356 INTERRUPTED. | UNLIKE THE RESTART COMMAND, THIS COMMAND DOES NOT FORCE 
357 FLAGS BACK TO THE INITIAL STATE. THE FLAGS WILL REMAIN AS SET UP DURING 


358 THE LAST START OR RESTART. THE USER HAS THE SAME DIALOGUE AND FLAG 
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OPTIONS AS DESCRIBED FOR THE RESTART COMMAND. 


ZERO FLAGS 

THIS COMMAND WILL ZERO ALL FLAGS (SECTION 4.8) AND TYPE A_ PROMPT. 
SECTION 4.8 DESCRIBES THE EFFECTS OF CLEARING ALL FLAGS. BUT ESSENTIALLY. 
ALL LOOPING AND HALTS WILL BE DISABLED AND ALL ERROR INFORMATION WILL BE 
PRINTED IN THE EVENT OF AN ERROR. 


ADD UNITS 

WHILE TESTING MULTIPLE UNITS. THE USER MAY WISH TO DROP A PARTICULAR UNIT 
FROM THE TEST PROCEDURE AND. LATER ON. BEGIN TESTING THAT UNIT AGAIN. IN 
THIS CASE, THE USER NEED NOT STOP THE DIAGNOSTIC AND REBUILD THE PTABLE. 
AFTER A UNIT HAS BEEN DROPPED (SEE SECTION 4.6), THE USER MAY ADD THE 
UNIT BY TYPING " C" AND nae THE y COMMAND AS FOLLOWS: 


DD/UN I: 

WHERE N IS A DECIMAL UNIT NUMBER THAT SPECIFIES THE UNIT TO BE ADDED. 

UNITS ARE NUMBERED FROM 1 TO 32 ACCORDING TO THE ORDER IN WHICH THEY WERE 
SPECIFIED FOR THE HARDWARE TABLE. MULTIPLE UNITS MAY BE ADDED BY TYPING 
EACH UNIT NUMBER SEPARATED BY COLONS (1.£.. ADD/UNI: 2:4: 22) OR BY TYPING 
THE FIRST AND LAST UNIT NUMBERS OF A CONTIGUOUS GROUP OF UNITS SEPARATED 
BY A DASH (1.€.. ADD/UNI: 1-10 WILL ADD THE FIRST TEN UNITS). NOTE: 
AFTER A START COMMAND, ALL UNITS ARE CONSIDERED ADDED. THERE IS NO NEED 
TO USE THE ADD COMMAND UNLESS THE UNIT WAS DROPPED. 


DROP UNITS 
TO-REMOVE A UNIT FROM TESTING, THE DROP COMMAND (DRO) IS_ USED. TO USE 
THIS COMMAND, TYPE C" AND DROP THE UNIT(S) USING THE DROP COMMAND AS 


FOLLOWS: 
DRO/UNI: N 

WHERE "N" 1S A DECIMAL UNIT NUMBER WHICH SPECIFIES THE UNIT TO BE 
DROPPED. UNITS ARE NUMBERED FROM 1 TO 32 ACCORDING TO THE ORDER IN WHICH 
THEY WERE SPECIFIED FOR THE HARDWARE TABLE. MULTIPLE UNITS MAY BE 
DROPPED BY TYPING EACH UNIT NUMBER SEPARATED BY COLONS (I.E., 
DRO/UNI: 1:3: 7) OR BY TYPING THE FIRST AND LAST UNIT NUMBERS OF A 
CONTIGUOUS GROUP SEPARATED BY A DASH (1.£.. DRO/UNI: 1-9 CAUSES THE FIRST 
NINE UNITS TO BE DROPPED). AFTER THE PROGRAM IS RESTARTED. THE SPECIFIED 
UNIT(S) WILL NOT BE iNCLUDED FOR TESTING 


DISPLAY PTABLE 

WHEN THE DISPLAY COMMAND IS TYPED. THE ENTIRE CONTENTS OF THE PTABLE WILL 
BE PRINTED. UNITS THAT HAVE BEEN DROPPED WILL BE SO MARKED. THIS 
COMMAND IS USEFUL FOR VERIFYING THE PTABLE CONTENTS. 


SWITCH OPTIONS 

THERE ARE THREE SWITCH OPTIONS AVAILABLE FOR USE WITH THE COMMANDS: 
/TES:, /PAS: AND /FLA:. THE TEST SWITCH, /TES:. 1S USED ONLY WITH THE 
START COMMAND AND THE PESTART COMMAND. iT IS USED TO SPECIFY THE 
INDIVIDUAL TEST(S) TO BE RUN IN CASES WHERE ALL TESTS ARE NOT TO BE RUN. 
FOR EXAMPLE, IF THE USER WISHED TO RUN THE LOOPBACK TEST ONLY. HE WOULD 


TYPE: 
»STA/TES: 2 
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IF THIS SWITCH IS NOT USED, ALL TESTS WILL BE RUN AS THE DEFAULT 
CONDITION. 


THE PASS SWITCH IS USED TO SPECIFY THE NUMBER OF PASSES TO BE RUN. TO 
RUN THE LOOPBACK TEST TWENTY TIMES. THE USER WOULD TYPE: 
»STA/TES: 2/PAS: 20 


TA/TES: : 
THIS SWITCH MAY BE USED WITH THE START. RESTART AND CONTINUE COMMANDS. 
THE DEFAULT CONDITION IS ESSENTIALLY AN INFINITE NUMBER OF PASSES. 


THE FLAG SWITCH 1S USED TO SET FLAGS WHICH CONTROL PROGRAM OPERATION AND 
ERROR PRINTOUTS. THIS SWITCH MAY BE USED WITH THE CONTINUE COMMAND AS 
WELL AS THE START COMMAND AND RESTART COMMAND. THE AVAILABLE FLAGS ARE 
SHOWN IN THE TABLE BELOW. 


FLAG EFFECT IF SET 
LOE LOOP ON ERROR 


HLT HALT ON ERROR 

iER INHIBIT ERROR REPORTS 

IBE INHIBIT BASIC ERROR REPORTX 

XE INHIBIT EXTENDED ERROR REPORTS 

PRI SEND ALL TYPEOUTS TO THE PRINTER 

BOE BELL ON ERROR 

UAN UNATTENDED MODE (NO MANUAL INTERVENTION) 

PNT PRINT TEST NUMBER 

XSEE SECTION 5.0 

EXAMPLE: 


IF THE USER WISHES TO _ THE PROGRAM WITHOUT ERROR MESSAGES AND 4AVE IT 
LOOP ON ERROR, HE WOULD TYPE: 
>RES/FLA: LOE: IER 


EXAMPLE: 
IF USER LATER WANTED TO STOP THE LOOP ON ERROR FEATURE. HE WOULD 
TYP 


>CON/FLA: LOE=0 
NOTE: THE ERROR REPORTS WOULD STILL BE INHIBITED 


ALL FLAGS ARE DEFAULTED TO ZERO (NOT SET) 


ERROR AND INFORMATIONAL MESSAGES ~ gi 

AS NOTED IN THE DESIGN NOTES (SECTION 1.3), A SINGLE ERROR MAY RESULT IN 
SEVERAL MESSAGES BEING TYPED. THIS IS OWE TO THE STRUCTURE OF THE 
PROGRAM. EACH SECTION. IN THE EVENT OF AN ERROR, REPORTS THE INFORMATION 
AVAILABLE TO IT. THE FINAL MESSAGE FOR EACH ERROR CONTAINS THE UNIT 
NUMBER (DECIMAL - 1 TO 32 - SEE SECTIONS 4.5 AND 4.6) AND THE PHRASE: 
“END OF ERROR REPORT” 


THERE ARE THREE LEVELS OF ERROR REPORTS. BY USING THE FLAG SWITCHES 
(SECTION 4.8), ONE OR MORE LEVELS OF REPORT MAY BE INHIBITED. THE FIRST 
LEVEL CONSISTS OF AN ERROR NUMBER. PC CONTENTS FIND ERROR TYPE (HARD. SOFT 
OR FATAL). THE ERROR NUMBER CAN BE PELATED T9 THE TABLE AT THE END OF 


ae one | 
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THIS SECTION. THE PC CONTENTS GIVE THE ADCRESS WHERE THE ERROR REPORT 
MECHANISM WAS INVOKED. THE NEXT LEVEL (BASIC ERROR REPORT) GIVES AN 
ENGLISH DESCRIPTION OF THE ERROR. AN EXAMPLE OF THIS TYPE OF MESSAGE IS 
“HEADER HAS CRC ERROR". THE FINAL LEVEL (EXTENDED ERROR REPORT) GIVES 
ADDITIONAL DATA CONCERNING THE ERROR, SUCH AS REGISTER CONTENTS. 


TO INHIBIT SOME OR ALL ERROR MESSAGES. USE THE FLAGS DESCRIBED IN SECTION 

4. g. THE INHIBIT-EXTENDED-ERROR-REPORT FLAG (I1XE) INHIBITS THAT LEVEL 
ONLY. THE INHIBIT-BASIC-ERROR-REPORT FLAG (1BE) INHIBITS BOTH BASIC AND 
EXTENDED ERROR REPORTS. FINALLY. THE INHIBIT-ERROR-REPORT FLAG C(IER)) 
INHIBITS ALL TYPEOUTS. 


TABLE OF ERROR NUMBERS 
NO. ERROR DESCRIPTION 


00 CANNOT INITIALIZE DUP 

O01 REPLY MESSAGE FROM TERM. WAS NOT AN ENG 
02 REPLY FROM TERM. WAS NOT EXPECTED TYPE OF CONTROL MESSAGE 
O03 TERM. ADDRESS IN RESPONSE WAS NOT CORRECT 
O04 RESPONSE HAD CRC ERROR IN THE HEADER 

20 OUP TRANSMIT ERROR 

21 OUP RECEIVE ERROR 

22 MESSAGE TO TERMINAL WAS NOT ACK'ED 

23 ERROR OCCURED WHILE INITIATING DUP 

24 ERROR OCCURED DURING TRANSMISSION 

25 DDCHP STRT MESSAGE DID NOT GET A STACK 

26 ERROR DURING RECEPTION : 

30 CANNOT GET CLEAR TO SEND SIGNAL 

31 TIMEOUT WHILE WAITING FOR RESPONSE 

40 SEE 21 

41 SEE O04 

“2 SEE 63 

43 MESSAGE DATA HAD CRC ERROR 

50 ERROR OCCURED DURING SELFTEST (TEST #1) 
51 ERROR OCCURED DURING LOOPBACK (TEST #2) 
52 ERROR IN RECEIVED DATA 

70 SELFTEST RESPONSE IN ERROR (NOT RECOGNIZED) 
71 TERMINAL MEMORY ERROR 

72 TERMINAL CONTROL-ROM ERROR 


RESTRICTIONS 

THIS DIAGNOSTIC DOES NOT ATTEMPT TO TEST THE DUP11. IF A LARGE NUMBER OF 
COMM ERRORS OCCUR. OR IF ATTEMPTS TO SEND OR RECIEVE DATA TO AND FROM THE 
TERMINAL FAIL; USE THE SPECIFIC DUP11 DIAGNOSTICS TO VERIFY THE DUP11. 


MISCELLANEOUS 
PLEASE REPORT ALL PROGRAM PROBLEMS VIA THE AIDS REPORTING SYSTEM. REFER 
ALL COMMENTS REGARDING DOCUMENTATION TO THE DIAGNOSTIC ENGINEERING 
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TERMINAL GROUP IN MAYNARD, MASS. 


TEST DESCRIPTIONS 

MICRODIAGNOSTIC (TEST #1) 

THE MICRODIAGNOSTIC, OR SELFTEST. IS ROM RESIDENT CODE IN THE VT62_ THAT 
1S EXECUTED UPON COMMAND FROM THE HOST COMPUTER OR DURING POWER UP. A 
FULL DESCRIPTION OF THE TEST IS AVAILABLE IN THE HARDWARE MANUAL FOR THE 
VT62. ESSENTIALLY. THE TEST VERIFIES THE MICROPROCESSOR. CHECKS ROM 
MEMORY. EXERCISES RAM MEMORY AND EXERCISES THE SCREEN. THE HOST MAY 
REQUEST THE RESULTS OF THE TEST. IN ANY CASE. THE RESULTS ARE ALWAYS 
DISPLAYED ON THE LAST LINE OF THE SCREEN. THE FIRST CHARACTERS ARE A 
CODED ERROR REPORT FOR THE HOST COMPUTER AND THE REMAINDER OF THE LINE IS 
AN ENGLISH DESCRIPTION OF THE ERROR STATUS. 


LOOPBACK (TEST #2) 

IN THIS TEST. THE TERMINAL 1S COMMANDED TO ENTER LOOPBACK MODE AND A 
SINGLE. 256(DECIMAL) BYTE DATA MESSAGE 1S SENT TO THE TERMINAL. THIS 
DATA MESSAGE WILL HAVE A OOCMP PROTOCOL ENVELOPE. LOOPBACK DATA IS 
DISPLAYED ON THE VT62'S SCREEN. vy THE DATA 1S RETURNED. THE TERMINAL 
1S TAKEN OUT OF LOOPBACK MODE USING A DOCMP "“STRT" SEQUENCE. THE CRC 
CHECKSUMS ARE VALIDATED FOR BOTH THE MESSAGE HEADER AND THE MESSAGE DATA. 
THE DATA 1S THEN CHECKED. BYTE BY BYTE. THUS THERE ARE THREE POSSIBLE 
ERRORS DETECTED: NO TERMINAL RESPONSE. BAD CRC OR BAD DATA. 


INTERPRETATION OF ANY ERROR MESSAGES REQUIRES SOME EDUCATED GUESSWORK 
BECAUSE OF THE NUMBER OF COMPONENTS IN THE COMMUNICATION LINK. 
INTERMITTENT ERRORS WOULD GENERALLY INDICATE LINE PROBLEMS UNLESS THE 
LINE 1S PHYSICALLY SHORT OR THE ENVIRONMENT 1S RELATIVELY NOISE FREE. IF 
EITHER OF THESE CONDITIONS IS THE-CASE OR IF THE ERROR IS NOT 
INTERMITTENT, THEN THE TERMINAL 170 BOARD. THE MODEM AND THE DUP ARE 
SUSPECT. IF THERE IS NO TERMINAL RESPONSE. RUN THE TERMINAL SELF TEST 
OFF-LINE. THIS WILL SHOW WHETHER THE TERMINAL IS COMPLETELY “DEAD” OR 
THE PORTIONS OF THE COMMUNICATION LINK MENTIONED ABOVE ARE BROKEN. 


THERE ARE TWO DATA PATTERNS AVAILABLE FOR LOOPBACK: ALL ZERO'S AND 
ALTERNATING 1/76 GiTS (1.€., BYTES OF 252,125,252,125....). THE ZERO 
PATTERN IS NOISE-SUSCEPTIBLE, BUT APPEARS ON THE SCREEN AS NULLS. 

HOWEVER THE ALTERNATING BITS PATTERN EXERCISES THE DATA PATHS BETTER. 

SECTION 4.0 SPECIFIES HOW TO SELECT THE PATTERN. 


SEQ 0012 
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9.0 


. ENDR 


INDEX 


Oa. 2 2 eo 
ADD COMMAND . 


CONTINUE COMMAND 
ee oe ew 


De os sc ae 
DISPLAY COMMAND . 


DROP COMMAND 
i Fane 
ERROR NUMBER 
—— REPORT 
FLAGS . 
LOOPBACK 


MULTIPLE UNITS 
MULTIPLE UUT'S 


NAK . 


. 


PTRBLE 


RESTART COMMAND . 


STAC 


a eo 
SWITCH OPTIONS 


entogs .... 


UNIT NUMBER 


Se. . 3 om 
START COMMAND. . 


SEQ 0013 
PAGE 13 


8B 2 
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DZDPGA. P11 21-NOV-77 14: 58 SEQ 0014 
ett 002000 . 2000 
An ; HEADER - VT62 HCCEPTANCE TEST 
5725 002000 104 ASCII adda 
(5) 002001 132 ASCII adZd 
(5) 002002 104 ASCII ade 
(5) 002003 120 ASCil Pa 
(5) 002004 107 ASCII aGed 
(6) 002005 000 BYTE 0 
(6) 002006 000 BYTE O 
(5) 002007 000 BYTE 
(4) 002010 101 ASCII @Aad 
(4) 002011 060 .ASCII a0a 
(4) 002012 001 .BYTE  CSREVISION 
(3) 002013 006 .BYTE CSEDIT 
(4) 002014 600000 WORD 0 
(4) 002016 000000 WORD 0 
(4) 002020 000000 WORD 0 
(4) 002022 00 WORD 0 
(4) 002024 coo000 WORD 0 
(5) 002026 000000 WORD 0 
(4) 002030 000000 WORD 0 
(4) 002032 000000 WORD 0 
(4) 002034 000000 WORD C 
(4) 002036 000000 .WORD QO 
(4) 002040 011450 .WORD LSDISPATCH 
(4) 002042 011462 WORD LSINIT 
(4) 002044 012026 WORD LSCLEAN 
(4) 002046 021472 WORD LSHARD 
(4) 002050 021642 KORD  LSSOFT 
(4) 002052 002202 weROD LSOVTYP 
(4) 002054 011454 WeRD = LORPT 
(4) 002 011430 WORD LSHW 
(4) 002060 011442 WORD LSSW 
(4) 002062 002220 WORD LSOR 
(4) 002064 002224 WORD LSORST 
(4) 002066 000000 WORD 
(4» 002070 011456 WORD LSAU 
(4) 002072 011460 .WORD LSDU 
(4) 002074 900000 . WORD 


0 
(4) 002076 021774 .WORD = LSLAST 
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S745 > RXXAKAAAAAAAAAA AAA AA AAA AAA AAA AAA AA AAA AAA 
5746 ; GLOBAL EQUATES x 
ets > RXXKAAAAAAAAAAAAAAAA AAA AAA AAI AAA AAA AA AAA 
4}. > BIT DIFINITIONS 
(1) ; 
(1) 100000 B1T15== 100000 
(1) 040000 BiITi4== 40000 
(1) 020000 BITi3== 20000 
(1) 010000 BIT12== 10000 
(1) 004000 BITii== 4009 
(1) 002000 BIT10== 2000 
(1) 001000 BITO9== 1000 
(1) 0004006 BITO8== 400 
(1) 000200 BI1TO7== 200 
(1) 000100 BITO6== 100 
(1) 000040 BITOS== 40 
(1) 000020 BITO4== 20 
(1) 000010 BiITO3== 10 
(1) 000004 BITOZ== 4 
(1) c00002 BiTOi== 2 
(1) 000901 B1TOO== 1 
(1) , 
(1) 001000 BIT9== BITOI 
(1) 000400 BiT8== BITOs 
(1) 000200 BIT7== B1ITO7 
(1) 000100 BiTé== BITOe 
(1) ooc040 BITS== BITOS 
(1) 000020 BiT4== BITOY 
(1) 006010 BiT3== BITO3 
(1) 000004 BIT2== BITOZ2 
(1) 000002 BiTiz= BITO! 
(1) 000001 BiTO== B1TOO 
(1) ; 
(1) ; EVENT FLAG DEFINITIONS 
(1) "; EF 32: EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUN! CATION 
(1) ; EF 16: EFO1 AVAILABLE FOR PROGRAM USE 
(4) ; 
(1) 000040 EF. START== he ¥ ; START COMMAND WAS ISSUED 
(1) 000037 EF. RESTART== 31. RESTART COMMAND WAS ISSUFD 
(1) 000036 EF. CONTINUE== 30. CONTINUE COMMAND WAS ISSUED 
(1) 000035 EF. NEW== 29. ; A NEW PASS HAS BEEN STARTED 
(1) 000034 EF. PWR== 28. >; A POWER-FAILZPOWER-UP OCCURRED 
C1) ; 
(1) 000020 EF16== 16 
(1) 000017 EF1S== 15. 
(1) 000016 EFi4== 14. 
(1) 000015 EFise=s 13. 
(1) 000014 EF1I2=s= 12 
(1) 000013 EFlis= 11. 
(1) 000012 EF10== 10 
(1) 000011 EFO9== 9. 
(1) 000010 EFO8== 8 
(1) 006007 EFO7s= 7 
(1) 000006 EFO6== 6 
(1) 000005 EFOS== 5 


Fe ee ee ee ee ee ee ee ee ee 
ee ee et et et et et et oe ot ot 
ee ee 
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000004 
000003 
000002 
000001 


000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 


€00201 


000006 


000400 


000377 
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-—-NWS 


VT62 DIAGNOSTIC 


PARAM= 101226 


HYBYTE=177400 


EQUATES 


+ START OF HEADER (DOCMP ) 

+ ACKNOWLEDGE r 

ane ACKNOWLEDGE " 
LY 


RE 

> ENQUIRY 3 

> START ‘3 

; START ACKNOWLEDGE 7 

+ SYNCHRONIZATION CHARACTER 

;DATA LINK ESCAPE 

; LOOPBACK. 

;PARITY BIT. 

>;NO. OF TESTS 

Wetihecachies RECEIVER CSR 

RECEIVER BUFFER REG. 
TRANSMITTER CSR 
TRANSMITTER BUFFER REG. 


+HARDWARE REGISTER BIT DEFINITIONS 
+ TRANSMIT, START OF MESSAGE 
>DATA TERMINAL READY 
* MASTER CLEAR 
;PARAM. REG. - DEC MODE. AUTO-CRC !NHIB. AND SYNC 
+REQUEST TO SEND 
»CLEAR TO SEND 
> TRANSMIT INTERRUPT ENABLE 
*SEND -- FULL DUX 
RECEIVE INTERRUPT ENABLE 
RECEIVER ENABLE 
;MASK FOR HIGH BYTE OF A WORD 
*MASK FOR LOW BYTE OF A WORD 


OUTERR 


DZDPGA. 
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002100 
002102 
002104 
002106 
002119 
002112 
002114 
002116 
002120 
002122 
002124 
002126 
002130 
002132 
002134 
00213€ 
002140 
002142 
002144 
002146 
002150 


002152 
002152 
002154 
062156 
062160 
002162 
002164 
002166 
002170 
002172 
002174 
002176 
002200 
002200 


«002202 
092210 


002216 
002220 
002222 
002224 


000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
oco000 
000000 
000000 
000000 
000000 


000000 


052126 
050125 
002216 
000001 
000017 
000004 
000004 
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031066 342054 


030461 


000 


; REXERALARAAAALAL ALAA AA AAA AAS ALAA ALAA ATLA LT 

GLOBAL DATA x 

; NEESERNEESSUNEEESANEESAXEEESO CSEESAKEE00042231 
: LA 


OUTMSG: 


INMSG: 


PTABLE: 


PTEND: 


DEYPRI: 


t 
oa 
o 
Oo 
o 


ooo00000000-00-0 


oO oo00000g 00000 


Oo 


0 INDICATE IF RS STACK IS SET UP 
+ SCRATCH LOCATIONS 


+ TEST ABORT FLAG 


; TIMEOUT LIMIT CIN 100 MICROSEC. INCREMENTS) 
INCREM. ) 


SHORT TIMEOUT LIMIT (APPROX. 20 MICROSEC. 
;LIMIT ON DEVICE INITIALIZATION ATTEMPTS 
; INPUT ERROR 

; OUTPUT ERROR 


+ END.OF MESSAGES FLAG 

;LOGICAL DEVICE NUMBER 
;EXPECT_INPUT FLAG 

OUTPUT MESSAGE POINTER AND SIZE 
> INPUT MESSAGE POINTER AND SIZE 
OUTPUT BUFFER POINTER AND SIZE 


> INPUT BUFFER POINTER AND SIZE 


+ TEST MESSAGE AREA POINTER 

; TEMPORARY MESSAGE POINTER AND SIZE 

>USED FOR INITIALIZATION OF OUTPUT ROUTINES 
;GENERAL BUFFER AREA POINTER AND SIZE 
»MESSAGE NUMBER (DODCHP ) 


/PRPESENT UNIT PTABLE DATA 


DEVICE PRIORITY 


-ASCIZ a@VToc. DUPI Ia 


. EVEN 
. WORD 


WORD 


. WORD 
. BLEW 


cite 


| 


a oaeccineiany 
' 


SEQ 0017 


OUTERR 
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5968 


5969 


5970 


5971 


5972 


5973 


5974 


5976 


5977 


5978 
5979 


Pi 


002637 


MACY11 3011046) 
77 


21-NOV- 


040503 


042520 


122 
044040 
041516 
052103 
044524 
042104 

000 


110 


020122 
051103 


052111 
051117 


122 
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020116 
047111 
044514 
046517 
044526 


050105 
051501 
051117 
051440 
047117 
042522 


040505 
040510 
020103 
000122 
047522 
044522 


041505 


047516 


042503 


054514 
047040 
020116 


051122 
042522 
054524 


054514 
O44440 
042522 
040524 
040440 
051523 


042504 
020123 
051105 


020122 


020115 
040517 


046440 
044103 
042524 
047105 
046517 
047502 


046523 
051122 


050105 
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CS ah ae 
; L x 
+ REXAAAAAAARAAA AAA AAA AAA AAAS AAA AAA AAA AAA AAAS 


MSGOO: 


NSGO1: 


MSGO2: 


MSG42: 
MSGO3: 


MSG41: 


MSGO4: 


MSG10: 


MSG12: 


MSG20: 


MSG4OQ: 
MSG21: 


.ASCIZ ZCAN NOT INITIALIZE COMM DEVICE/ 


.ASCIZ ZREPLY WAS NOT AN ENG/ 


.ASCIZ ZINCORRECT REPLY TYPE/ 


ASCIZ /PEPLY HAS INCORRECT STATION ADDRESS/ 


-ASCIZ “HEADER HAS CRC ERROPR/ 


-ASCIZ /EPPOR DURING KEYBOARD TEST #* END OF REPORT 4%/ 


.ASCIZ /BAD PESPONSE FROM KE YBCARD’ 


-ASCIZ /TOO MANY CHARACTERS SENT FROM KEYBOARD.’ 


.ASCIZ “TRANSMIT ERPOR’ 


-ASC'Z /RECEPTION ERROR’ 


SEQ 0018 


eeesie 





OUTERR 
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5980 


5981 


5982 


5983 


5984 


5985 


5986 


5987 


5988 


5989 


5990 


002644 


003326 


MACY11 30(1046) 
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044524 
051122 


051105 
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047117 


053105 


047522 
052503 
042040 
020107 
946523 
047117 
020117 
020113 
051505 
020105 
051124 
047522 
046111 
042503 
020107 
051105 
047101 
052105 
051101 
042523 


046511 


040511 
044524 
047522 


042440 
000 


041501 
042503 
040440 
052040 
044515 
000116 
020122 
020105 
040511 
043516 
041511 


020122 


042116 


020105 
044127 
040527 
020107 
042524 
046101 
047520 


041440 
051122 


042523 


020122 
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MSG22: 


MSG23: 


MSG24. 


MSG25: 


MSG2é: 


MSG20: 


MSG31: 


MSS43: 


MSGUS: 


MSGSO: 


MSG51: 


. ASCI 


. ASCIZ 


. ASCIZ 


. ASCIZ 


™N 


-ASCI2 


. ASCIZ 


- ASCIZ 


-ASC'Z 


7NO ACK RECEIVED AFTER TRANSMISSION/ 


7ZERROR WHILE INITIALIZING DEVICE/ 


/ERROR OCCURRED DURING TRANSMISS!ION/ 


7NU STACK IN RESPONSE TO STRT/ 


CEPPOR WHILE RECEIVING BUFFER / 


= CAN'T GET CLEAR TO SEND’ 


/TIME GUT WHILE WAITING FOR TERMINAL RESPONSE / 


/DATA CRC ERROR.’ 


“NOISE PATTERN SUBTEST.’ 


/ERROR DURING MICRODIAGNOSTIC 


JERROP DUP ING LOOPBACE ° 


SEQ 0019 


OUTERR 


DZDPGA 
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5992 


5993 
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003462 


003464 
003472 


003500 
003501 
003502 
003503 
003504 
003505 
003506 


003510 
003514 
003520 
003524 
003526 
003530 
003534 
003534 
003536 
003544 
003552 
003560 
003566 


003570 
003570 


003572 
003576 
003602 
003606 


051103 
C51122 
003500 


006000 


016746 
012746 
012746 
010600 
104015 
062706 


104023 


016746 
016746 
012746 
012746 
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044522 
047517 
000113 
040524 
051117 
046114 
051440 
042524 
051505 
000105 
047515 
051122 
052040 


000 
020055 
021440 

000 


046517 
051117 


176400 
003536 
000002 


000006 


043101 
047445 
052101 
051524 


000030 
000022 
003630 
000003 


043516 
041120 


047520 


054522 
051117 
050131 


040502 


042440 
000 


342524 
022466 
042524 
047045 
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MSG52: .ASCIZ /DATA ERROR/ 
MSG70: .ASCIZ /ILLEGAL SELF TEST RESPONSE/ 
NSG71: .ASCil 7MEMORY ERROR TYPE / 
MTY: BYTE 0,0 
. ASCII 7M - BANK #/ 
BNO: . BYTE 9,0 
. EVEN 
MSG72: .ASCIZ 7CROM ERROR/ 
_ EVEN 
STRTB: . BYTE ENQ 
BYTE STRT 
.BYTE 300 
. BYTE 0 
. BYTE 0 


STRTSA: . BYTE O 
STRTC: .WORD O 


eee ene Eee 
GLOBAL ERROR REPORT 

PTT TTT TTT Tee 
MoV 


LIMIT, -CSP) 
MoV #FORMOO, -( SP) 
MoV #2,-(SP) 
MoV SP, RO 
EMT CSPNTX 
ADD #6, SP 
L10000: 
EMT C$MSG 
FORMOO: .ASCIZ /“AAFTER “06%A ATTEMPTS’.N 
EVEN 
L10901: 
EMT C$MSG 


MoV AGZ2B. = (SP ) 
NOV AGZA, -« SP) 
Mov #FORNGZ. -« SP) 
MO Ro 7 (SP) 


OUTERR 
OZ0PGA 


(3) 
(4) 
(4) 
6023 
(3) 
6024 
6025 
©6026 


MACY11 3011046) 
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Puli 


003612 
003614 
003616 
003622 
003622 
003624 
003626 
003630 
003636 
003644 
003652 
003660 
003666 


003674 
003674 
063700 
003704 
003710 
003714 
003716 
003720 
003724 
003724 


003726 
003726 
003726 
003732 
003736 
003742 
003746 
0072750 
003752 
003756 
003756 
003760 
003762 
003764 
003772 
004000 
004006 
004014 
004022 


004030 
004034 
004040 
004044 
004050 
004052 
004054 
004060 
004060 


010600 
104015 
062706 


104023 


003674 


016746 
016746 
012746 
012746 
010600 
104915 
062706 


104023 


016746 
016746 
012746 
012746 
010600 
104015 
062706 


104023 
000000 
000000 
040445 
053111 
033117 
020055 
052103 
033117 
004030 


016746 
016746 
012746 
012746 
010600 
104015 
062706 


104023 


14: 


000010 


042522 
042105 
O4O44S 
054105 
042105 
047045 


176202 
176200 
003630 
B00C03 


000018 


000030 
000022 
003764 
000003 


000010 


042522 
042105 
O4O44S 
054105 
042105 
047045 


000030 
000022 
003764 
000002 


000010 
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042503 
022440 
026440 
042520 
022440 

000 


042503 
022440 
026440 
942520 
022440 

000 
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L10002. 


A0zZB: 
FORMOZ2: 


AREASY 2: 


L10002: 


APEAY). 
APREAYS: 


L10004- 
AOYRC: 


ADYEX: 
FORMOK. 


L10605: 


MT 


SP, RO 
CSPNTX 
#10, SP 


CSMSG 


ASCIZ /“ARECEIVED %03%A -- EXPECTED %03%4N/ 


EVEN 


Mov 
MoV 
MoV 
MoV 
MoV 
ENT 
ADD 


EMT 


SCRTCH. -(SP) 
TEMP, -(SP) 
#FORMNOZ, - (SP) 
#3,-(SP) 
SF.RO 

CSPNTX 

#10. SP 


C$NSG 


AO4EX. - (SP) 
ROYRC. - (SP) 
#FORMOY, -( SP) 
#3,-(SP) 
SP.RO 

CSOPNTY 

#10, SP 


C$MSG 


/UARECE NED 0678 -- EXPECTED *Ob%N 


KEX. - SP) 


SEQ 0021 


OUTERR 
DZDPGA. P11 


6067 
e0es 
6070 
(3) 
6071 
6074 
6075 
6076 
6077 
(7) 
(6) 
(3) 
(4%) 
(4) 
6078 
(7) 
(6) 
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004062 000000 
004064 9000000 


004066 104023 
004070 104023 


004072 016767 
004100 005767 
004104 002002 
004106 005067 


004112 005267 
004116 016746 
004122 012746 
004126 012746 
004132 010600 
eo4i34 104015 
064136 062706 
004142 012746 
004146 012746 
004152 ‘010600 
004154 104015 
004156 062706 


004162 104023 
004164 000000 
004166 O4044S 
004174 042503 
004202 022463 
004206 O4044S 
004214 020040 
004222 025052 
004230 042116 
004236 051105 
004244 042522 
004252 025040 
004260 047045 

004 264 


004 264 
004264 104023 


004 266 

004266 010146 
004270 012701 
004274 016146 
004300 012746 
004304 012746 
004310 010600 
004312 104015 
004314 062706 
004320 016146 
004324 012746 
004330 012746 
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176030 
000060 


000052 


. 000046 


000042 
004166 
000002 


000006 
004 206 
000001 


000004 


042504 
020072 
000116 
020040 
020040 
025052 
047440 
047522 
047520 
025052 

000 


002224 
000000 
004420 
000002 


000006 
000002 
004442 
000002 


000064 


N44526 
O4 2045 


020040 
025040 
042440 
020106 
020122 
052122 
025052 


KRC: 


KEX: 
L10006: 
L10007: 


AREAZ24: 
AREA4O: 


500008: 


10010: 


TEMP 2: 


FORM23: . 


FORMYD 


L10011: 


AREAT1: 


182-4 


CS$MSG 
CS$MSG 


LOGDEV. TEMP2 
TEMP2 
50000$ 
TEMP2 


TEMP2 
#FORM2Z3,-(SP) 
#2, -(SP ) 


#6, SP 
#FORMYO, -( SP) 
#1,-(SP) 
SP.RO 

CS°NTX 

#4, SP 


C$MSG 


JZADEVICE: “D3%N.’ 


“A *49KX END OF EPPOR REPORT 44 4%"N/ 


C$MSG 


R1.-(SP) 
#OUPREG. R1 
RCVUCSR(R1), -«SP3 


RCVBUF (RI), -(SP) 
#FRM3OA, -(SP) 
#2, -«SP) 


SEQ 0022 


—s 
} 
| 





OUTERR 


OZ0PGA. 


(3) 
(4) 
(4) 
6079 
(7) 
(6) 
(3) 
(4) 


MACY11 30(1046) 
Pil 21-NOV-77 


004530 


004532 
004536 
004542 
004544 
004546 
004552 
004552 
004554 
004562 
004570 
004576 
004604 


004610 


004642 


012601 


104023 
O4O44S 


000116 


012746 
012746 
010600 
104015 
062706 


104023 
O4O44S 
020124 
047111 
047517 
022513 


012746 
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000006 
000004 
004465 
900002 


000006 
000006 
004507 
000002 


000006 


052504 
051123 
022466 
052504 
043125 
033117 


042101 
051503 
033117 


042101 
052502 
047445 


004554 
000001 


000004 


040503 
042507 
047524 
041120 
000116 


004702 
000001 
000004 
177322 


020120 
020072 
000116 
020120 
035106 
047045 


050125 
035122 
047045 


050125 
043106 
022466 


923516 
020124 
046040 
041501 


1773276 


L10012: 
FORM30: 


FRM3OR: 


FRMSOB: 


FRMSOC. 


L10013: 
FORM6D. 


SP.RO 
CSPNTX 


#6, SP 
XMTCSR(R1), - (SP) 


#FRMZOB, - (SP) 
#2, -(SP) 
SP, RO 


P 
XMTBUF (R1), -(SP) 
#FRMSOC, - (SP) 


(SP)+,R1 


ENT C$MSG 
-ASCIZ 7%ADUP RCSR: %06%N/ 


-ASCIZ /“%ADUP RBUFF: %06%N/ 


-ASCIZ /*%ADUP TCSP: %06%N/ 


ASC!Z /“ADUP TBUFF: %06"N.’ 





#FORMED. - «SP: 
#1,-(SP) 

SP. RO 

CSPNTX 

#4, SP 


CSMSG 


/“%ACAN'T GET INTO LOOPEBGCE nN 


#FORMO1,-(SP) 
#1,-CSP) 
SP.RO 

CSPNTX 


#4, SP 
LOGDEV. TEMP2 
TEMP 2 

5c001$ 


SEQ 0023 | 

















































L 2 
MACY11 30(104%6) 22-NOV-77 08:02 PAGE 182-6 
DZ0PGA. P11 21-NOV-77 14: 58 SEQ 0024 
6137 004644 005067 177314 CLR TEMP2 
6138 004650 500015: 
6139 004650 005267 177310 INC TEMPZ 
6140 004654 016746 177304 MOV TEMP 2, -(SP) 
(7) 004660 012746 004166 Mov #F ORMZ3, - (SP) 
(6) 004664 012746— 000002 MOV #2, -(SP) 
(3) 004670 010600 MOV SP.R 
(4) O04672 104015 ENT CSPNTX 
(4) 004674 062706 000006 ADD #6, SP 
6141 004700 L10014: 


(3) 004700 104023 EMT CSMSG 
6142 004702 O4O44S 040503 023516 FORM61: _ASCIZ /“ACAN'T GET OUT OF LCOPBACK“N/ 
004710 020124 042507 020124 
004716 052517 020124 043117 
004724 O46040 047517 041120 
004732 041501 022513 000116 


b143 . EVEN 

6145 004740 016746— 000074 MoV AS2B,-«SP) 
(8) 004744 016746 000066 MOV AS2A, - (SP) 
(7) 004750 012746 004772 MOV thea: = “(9 
(6) 004754 C12746 000003 MoV #3,-(SP) 
(3) 004760 010600 MOV SP,RO 
(4) 004762 104015 EMT CSPNTX 
(4) 004764 062706 900010 ADO #19, SP 

6146 004770 L10015: 


(3) 004770 104023 EMT CSMSG 
6147 004772 O4O44S 054105 042520 FORNSZ: .ASCIZ /“MEXPECTED “O2“A -RECE!VED: “03%N/ 
005000 052103 042105 020072 
005006 047445 022463 9020101 
005014 026440 042522 042503 
005022 053111 042105 9020072 
005030 047445 022463 000116 
6148 EVEN 
6149 006036 000000 AS2A 
6150 oO05040 9000000 A528. 


6153 005042 ' L10016 
(3) O05042 104023 ENT CSMSG 


6156 005044 L10017: 
(3) 005044 104023 ENT C$MSG 


6158 005046 TEMBUF : 

6159 O05046— 001452 BLEW 810. 

6160 010172 TMPBUF : 

6161 010172 O00416 .BLKW 270. 

6162 011226 000100 . BLKW 100 

011426 SSTACK: STACK FOR SUBROUTINE LINKAGE. 


oOo 


OUTERR 


OZOPGA. 


MACY11 
Pil 


011426 
011430 
011432 
011434 
011436 
011440 
011440 
011442 
011444 
011446 


011446 
011460 
O1i4S2 


3011046) 22-NOV-77 08:02 PAGE 183 
21-NOV-77 14: 58 


000004 
160010 
000320 
000140 
000000 


000002 
000010 
000001 


000002 
017174 
920200 


; AERAEEAAAEESEREEAA ALAA E TELA A ALARA AAA AAA AAT A EATS 

DEFAULT HARDWARE P-TABLE AND SOFTWARE P-TABLE x 
Piitititttttittitiiitittittttitiititititiitttitiitsee rete 
.WORD  1L10020-LSHW/2 


L10020: 
.WORD 110021-LSSW/2 
S10 


PATTERN: COO001 
L10021: 


JSSOOO OOOO OOOO Oak 

DISPATCH TABLE ¥ 

SOOO OOOO USO OOOO OO AOE 
TSTS 


. WORD 
.WORD Ti 
.WORD *° T2 


y 


SEQ 0025 


OUTERR 


DZOPGA. 


MACY11° 30(1046) 


011454 
011454 


011456 
011456 


011460 
011460 


011462 


011464 
011476 


011472 


011474 
011500 
011504 
011506 


011506 
011512 
011514 
011516 
011522 
011530 
011532 


011536 * 


011536 
011536 


104025 


104054 


104055 


010146 


012700 
104050 


103005 


012705 
005267 
000414 


012700 
104050 
103410 
005267 
026767 
001002 
005067 


22-NOV-77 08:02 PAGE 184 
Pil 21-NOV-77 14: 58 


000040 


011426 
170374 


000037 


170404 
170400 


170370 


170264 


SEQ 0026 


; REXAAAAAARAAAAAAAA ALATA AAA ALAA AAAI 
;STUB AREAS FOR SUPERVISOR COMPATIBILITY x 
; REXKAAAAAAAAAAAAAAAAAAAAAAA AAA AAA AAA AAAI 
L10022: 

ENT CSRPT 


L10023: 
EMT C$AU 


L10024: 
EMT C$0U 


TTtttttititiitttttttttt tte 
| agwagexdSMMEEERAESAEEAASHESRSNE 200000000 

; SAVE RI 

MoV R41 = (SP) 

SCHECK START EVENT FLAG TO SEE IF WE GOT HERE BECAUSE OF A START 


Mov HEF. START, RO 
ENT  CSREFG 


FPR START, THEN... . 
Bcc} =—-:- § 00028 

; INITIALIZE THE SUBROUTINE LINKAGE STACK 

MoV —s- #SSTACK, RS 


INC RSSTCK 
BR 500035 


Pal 


500028: 

SIF NOT START THEN... 

[CHECK FOR RESTART AND IF IT IS: 

/UPDATE LOGICAL DEVICE AND STAT. TABLE ENTRY POINTER. 
“BUT DON'T EXCEED THE NUMBER OF UNITS SPECIFIED 


MoV #EF. RESTART. RO 
CSREFG 


EMT 
BCS 50004 
INC LOGDEV 
CMP LOGDEV. LSUNIT 
BNE 50005$ 
CLR LOGDEV 
500058: 
50004S: 
500038: ' 5 


[CHECK FOR NEW PASS... IF IT 1S, FORCE LOGICAL UNIT TO ZERO 


ene lc 


B 3 
OUTERR WMACY11 30(1046) 22-NOV-77 08:02 PAGE 184-1 
DZDPGA. P11 21-NOV-77 14: 58 SEQ 0027 
6475 011536 012700 O00035 MoV #EF. NEW, RO 
(3) 611542 104050 ENT CSREFG 
6476 011544 103002 BCC 50006$ 
6477 011546 005067 170354 CLR LOGDEV 
6481 011552 500063: 
6482 ; 
6483 ;END OF START CODE 
ae a4 ;FORCE THE COMM DEVICE TO BE INITIALIZED 
6486 011552 005067 003640 CLR INIT 
aed 011556 605067 170324 CLR ABORT 
ne >SET UP THE INPUT BUFFERS QUEUE 
6491 011562 012767 015442 003650 MoV #RQUET., RQUE 
6492 011570 016767 003644 003640 MOV RQUE, RQUEUE 
6493 011576 012767 015460 003652 MoV #RBQUET. RBQUE 
6494 011604 016701 003646 MoV RBQUE. R1 
6495 011610 012767 OOS046 170264 MOV # TEMBUF, SCRTCH 
6496 011616 5000735: 
6497 011616 C16721 170260 MOV SCRTCH. (R1)+ 
6498 011622 062767 000416 170252 ADD #270. , SCRTCH 
6499 011630 020127 015464 CMP Ri. #RBQUEB 
Be. 011634 003770 BLE 500075 
16 ; 
7 td >GET THE PTABLE ENTRY FOR THIS LOGICAL DEVICE 
1 ; 
6519 011636 500108 
6520 011636 005201 R1 
6521 011640 016700 170262 MOV LOGDEV., RO 
(3) 011644 104042 EMT CSGPHRD 
+H 011646 010067 170230 MOV RO. SCRTCH 
65 ; 
6523 ;1F UNIT HAS BEEN DROPPED. UPDATE POINTERS ETC. AND TRY AGAIN 
6524 ; 
6525 011652 103411 BCS 50011$ 
6526 011654 005267 170246 INC LOGDEV 
6530 011660 026767 170242 170126 CMP LOGDEV, LSUNIT 
(9) 011666 001002 BNE 500128 
6531 011670 005067 170232 CLR LOGDEV 
6535 011674 5001238: 
6536 011674 005001 CLR R1 
6537 011676 500115: 
6538 011676 005701 TST R1 
(6) 011700 001756 BEQ 500108 
6551 : 
6552 ;NOW GET THE PTABLE DATA FROM THE SUPERVISOR AND STORE WITHIN THE 
6553 ; DIAGNOSTIC PROGRAM 
6554 ; 
6555 011702 012701 002170 MoV SPTABLE.R1 
6556 011706 500135: 
6557 011706 017711 170170 MOV aSCRTCH, (R1) 
6558 011712 062701 000002 ADD #2,R1 
6559 011716 062767 O00002 170156 ADD #2, SCRTCH 
6560 011724 020127 002200 CMP R1,8PTEND 


(6) 011730 001366 BNE 50013% 












OUTERR 
DZDPGA 


. Pil 


011732 


012024 


012026 
012030 
012034 
012042 


012044 


012050 
012050 





MACY11 30(1046) 





21-NOV-77 14:5 


012601 
104011 


047045 
031066 


012026 


010146 
016701 
052761 
012601 


005267 


104012 


O4O44S 


051514 


170134 
000400 


170052 


a” pid 08 





052126 


047045 


000004 


:02 PAGE 184-2 





; RESTORE R1 AND EXIT INIT CODE 


j Mov (SP)+,R1 
10025: 


MT CSINIT 
VMSG: .ASCIZ /“NZAVT62 ACCEPTANCE TEST -- VERSION 10 TERMINALS“N/ 


. EVEN 


; RXXKKARAKAAAAAAAA AAA AAA AAA AAA AAA AA AAA AAAS 
; LEAN-UP CODING + 
5 MAEXKXAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AEA 


 IMAKE SURE DEVICE 1S SHUT DOWN 


MoV Ri, -(SP) 
MOV PTABLE, R1 
BIS #MASCLR, XMTCSP (RI) 
MOV (SP)+,R1 

[UPDATE PASS COUNT 

INC PASCNT 

SEXIT CLEAN-UP CODE 


10026: 
EMT CSCLEAN 


SEQ 0028 


OUTERR 


DZDPGA. 


MACY11 30(104%6) 


Pil 


012052 


012052 
012054 
012056 


012070 
012076 
012102 
012106 
012112 
012116 
012120 
012124 
012132 


012132 
012136 
012140 
012144 


012152 
012154 
012154 
012160 


21-NOV-77 14:5 


010446 
010604 
162706 


017764 


016467 
016746 
042716 
04 2667 
005767 
001405 
005267 
042764 


005754 
002006 
005267 
042764 


000402 
005067 


000002 


170064 


177776 
170000 
000001 
167770 
167764 


170000 
000001 


177776 


167764 
100000 


167750 


177776 


170004 


17777 


spits 08:02 PAGE 185 


; MAXEREEAERAESAERA ERAS LEASES AES A ALAA AAAS A AAA TEATS 
GLOBAL SUBROUTINES i 
NERS EXSEEASESENSEESRSUASROOYSOUQRS 2008500000 08002085013 


eee StRLAS ASSES SSSSSSS SS SAS SAASSSSSSSAS SOAS SAE SSS SS ARR RRRRA SS 
ROUTINE TO PROCESS TERMINAL MESSAGES FOR ALL TESTS 
RETURNS POINTER TO MESSAGE ("OUTMSG") AND ITS SIZE 
IN BYTES ("OUTSI2") 


SIZE MAY BE ANY NUMBER OF BYTES 


SETS A FLAG ("EXPINP”) IF RESPONSE OTHER THAN “ACK” IS 
TO BE EXPECTED 


SETS ANOTHER FLAG ("EOMSG") IF THIS IS THE LAST MESSAGE 
FHEFEEEHEEF EEF EF EEE EEE EEE EEE FETE FFF FFF FSFE ttt tts ttre tests tse stats 


MSG: 


ee ee ee ee ee ee ee ee ee ee 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


MOV R4,-(SP) 
MOV SP,.R4 
SUB #2, SP 


;GET MESSAGE POINTER 


MoV O@MSGAP, ACRY) 
;1F MESSAGE POINTER IS OOD. 
;SET END_OF MESSAGE INDICATOR 

MoV ACR4Y),. SCRTCH 

MoV SCRTCH, -(SP) 

BIC #1, (SP) 

Bic (SP)+, SCRTCH 

TST SCRTCH 

BEQ 50002$ 

INC EONSG 

#1,ACRY) 

500028: 


“IF MESSAGE_POINTER 1S NEGATIVE. 
“SET EXPECT-INPUT INDICATOR 


TST ACRY) 
BGE 50003$ 
INC EXP INP 


BIC #100000, ACRY) 
S OTHERWISE. CLEAR EXPECT_INPUT 
‘ BR 500045 


500038: 
CLR EXP INP 
50004S: 


“SET MESSAGE_ADDRESS AND 
: MESSAGE _S1ZE 


SEQ 0029 


QUTERR 


DZ0PGA. 


MACY11 30(1046) 


Pil 


012160 
012166 
012174 


012202 
012210 


012216 
012224 
012230 
012234 
012240 
012244 
012246 
012252 
012252 
012252 
012252 
012254 
012256 


012260 
012260 
012264 


012304 
012316 


012310 
012316 
012324 
012332 


012340 


016467 
062767 
017767 


067767 
062767 


016767 
016746 
042716 
042667 
005767 
001402 
G05267 


010406 
012604 
000207 


005767 
001011 
004767 
10302 
000261 
000594 


005067 
005067 


016767 
012767 
062767 
017767 


012767 


22-NOV-77 08:02 PAGE 185-1 
21-NOV-77 14: 58 


177776 
000002 
167752 


167744 
000002 


167730 
167652 
000001 
167642 
167636 


167700 


003132 
000222 


167660 
167656 


167616 
002132 
000002 
167544 


010172 


167744 
167756 
167732 


167742 
167734 


167656 


167636 
167556 
167550 
167616 


167612 


MOV = ACR4), OUTMSG 
ADD  —=«- #2, MSGAP 
MOV —- ANSGAP, OUTMSG+2 


| UPDATE MESSAGE -AREA_POINTER 


: ADD aNSGAP, NSGAP 
ADD #2, MSGAP 


SIF MESSAGE_AREA_POINTER IS ODD 
;ADD 1 TO MAKE IT EVEN 


MOV MSGAP, SCRTCH 
MOV SCRTCH, - (SP) 
BIC #1, (SP) 
BIC (SP)+, SCRTCH 
TST SCRTCH 
BEQ 50005$ 


INC MSGAP 
500058: 
500008: 
50001$: 
MoV R4. SP 
MOV (SP )+,R4 
RTS PC 


LFHEFFEFES EE EE EEE EE EEE EE EE TE FEE TESTE FETT THF F tt ttt ttt tet tts tse tsette 
ROUTINE TO HANDLE OUTPUT OF MESSAGES TO THE TERMINAL + 
UNDER TEST. MESSAGES MAY BE OF ANY LENGTH SINCE + 
ROUTINES USED BY THIS ROUTINE SPLIT THE MESSAGES INTO + 
; BUFFERS OF APPROPRIATE LENGTH FOR DDCHP. + 
LESSEE FE SESE FEF SHS H SHEFF Het esses Ht sts t+ tsetse tsetse tsetse ttt ttstetes+ 


TEROUT: 


TST INIT 

BNE 500025 

JSR PC, XSTRT 

BCC 500038 

SEC 

BR 500018 
509035: 

CLR MSGNO 

RMSGNO 

500028: 


[INITIALIZE THE BUFFER ROUTINES 3.2. 20.4 


MoV OUTNSG. INITHA 

MOV ROUTMSG, SCRTCH 
ADD #2, SCRTCH 

MOV O@SCRTCH, INITMS 
BUFFER #1, BAPNT 

MOV #TMPBUF. BAPNT 


SEQ 9030 


OUTERR 


OZDPGA. 


MACY11 30(1046) 
21-NOV-77 


Pil 
012346 


012354 
012360 
012364 
012370 


012374 


012410 
012414 
012416 
012422 
012426 
012432 
012434 
012440 
012444 


012450 
012452 
012454 
012456 
012460 
012462 
012464 


012464 
012470 
012474 
012500 


012504 
012506 


012506 


012767 


162705 
004767 
012567 
012567 


005767 
003442 
005767 
001037 


162705 
010546 
016745 
016745 
004767 
012605 
012567 
012567 
004767 


103005 
104423 
000024 
002620 
000261 
000412 


162705 
004767 
012567 

12567 


000733 


22-NOV-77 08:02 PAGE 185-2 
14: 58 


000412 


000004 
000410 
167552 
167550 


167544 
167500 


060004 


167522 
167514 
000470 


002762 
002760 
001756 


0060004 
000300 
167442 
167440 


167606 


| Mov #266. . BASIZE 
;GET A BUFFER OF THE MESSAGE 


SUB #2%2,R5 
JSR PC, GETOB 
MoV (R5)+, OUTBUF 
MOV (R5)+, OUTSIZ 


PERFORM THE FOLLOWING LOOP WHILE 
/A AND ABORT ARE CLEAR AND OUTSIZ 


> 1S GREATER THAN O 


50004S: 
TST OUTSIZ 
BLE 50005$ 
TST ABORT 
BNE 50005$ 


[ADD PROTOCOL ENVELOPE AND TRANSMIT 


SUB #2%2,R5 
MOV R5,-(SP) 
MoV OUTS1IZ, -(R5) 
MoV OQUTBUF, - (RS) 


JSR PC, PROBUF 

Mov (SP)+,R5 

MOV (RS5)+, XBUFFER 
MOV (R5)+, XSIZE 
JSR PC, XMIT 


AF TRANSMIT ERROR, REPORT 1T AND SET EPRPXMT 


BCC 500068 
TRAP TSERCODE 


-WORD 20 

-WORD MSG20 

SEC 

50001$ 

50006S: 
>GET THE NEXT BUFFER 

SUB #242,R5 

JSR PC, GETOB 

MOV (RS5)+, OUTBUF 

MOV (R514, OUTSIZ 


END OF LOOP 


500048 
500058: 


1F ERROR OCCURRED. DO AN ERROR RETURN 


500008: 


SEQ 0031 


OUTERR 
DZD0PGA 


(2) 

(3) 

(2) 
6766 
6767 
6768 
6769 
6770 
6771 
0772 
6773 
b77& 
0775 
t77be 
6779 

(3) 
e7Sc 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 


MACY11 
Pil 


012506 
012510 
012510 
012512 


012514 
H12514 
012516 
G12520 


012524 
012532 


012540 
012546 
012554 


012562 
012566 
012570 
012574 
012600 
012604 
012606 


012612 
012616 
012616 


012622 
012624 
012626 
012630 
012632 
012634 


3011046) 
21-NOV-77 1 


000241 


000207 
000000 


010446 
010604 
162706 


012767 
O1c7e° 


012764 
062704 
117467 


162705 
010546 
012745 
016745 
004767 
012605 
012567 


005067 
004767 


103005 
104423 
000024 
002020 
000261 
000453 


G 3 
7" NOV-77 08:02 PAGE 185-3 
4: 58 
500015: 
RTS PC 
TYPE: 0 ; TYPE OF MESSAGE EXPECTED 


000002 


900010 
003500 


002170 
000005 


177776 


900002 
000006 
002622 
004014 


170674 


000154 
001604 


- 


SEEEESEFEFF FESS ESE SESS ESSE ESS tS E tsetse st ttt tt ttt set ttsttsttetters+ 


ROUTINE TO SEND A "STRT" MESSAGE TO THE TERMINAL + 
, + 


"STACK" MUST BE RETURNED BY THE TERMINAL + 
PIER IK te le Di oe Bo Be Riese EON 
XSTRT: 
Mo Ru, -«SP) 
MOV SP. RY 
SUB #2.SP 
“THE DUCMP STRT MESSAGE 1S 10 BYTES LONG (INCLUDING CRC) AND IS IN 
[A BUFFER STARTING AT "STRTB” -- PUT THIS iNFORMATION 
SIN THE TRANSMIT ROUTINE'’S POINTERS 
NO2672 MoU #10. XSIZE 
02662 MOV #STRTB, XBUFFER 
[GET THE TERMINAL ADDRESS AND PUT INTO THE STRT MESSAGE 
77% MOV #PTABLE. ACRY) 
177776 ADD #5, ACRY) 
170723 MOVB  aAcR4), STRTSA 


COMPUTE THE CRC FOR THE STRT MESSAGE AND PIT iN THE LAST TWO BYTES 
-OF THE BUFFER ("STRTC") 


SUB #1K2,R5 

MO RS, -(SP) 

MoV #6, -(R5) 

MoV XBUFFER. -« RS) 
JSR PC, CRC 

MoV (SP )+,P5 

MoV (RSi+. STPTC 


“TRANSMIT THE MESSAGE 
CLR DOSTRY 

50002$ 
ISR Po. XMIT 


:1F AN ERROR OCCURS, REPORT IT AND EXIT WITH THE EPROP FLAG SET 


Bcc 500035 
TRAP §TSERCODE | 


OUTERR 
DZ0PGA 


68093 
6810 
6811 
6812 
6813 

(uy) 

(3) 

(3) 
6814 
6215 


MACY11 3011046) 


Pil 
012636 


012636 
012640 
012644 
012650 


012652 
012654 


012722 
012724 


012724 
012732 
012734 
012740 
012744 


012762 


012762 
012762 
012764 
012764 
012766 


010546 
012745 
004767 
012605 


103003 
00&267 
000402 
005067 


005767 
001404 
026727 
001345 


005767 
001405 
104423 
000025 
002637 
00026! 
0004 20 


012767 


103005 
104423 
000031 
003025 
000261 
000401 


000241 


010406 
012604 


22-NOV-77 08:02 PAGE 185-4 
21-NOV-77 14: 58 


000001 
003456 


000112 


000104 
000100 
000072 


NHO00e= 


n00007 


177652 
001072 


500038: 
; OTHERWISE, GET 


THE TERMINALS RESPONSE 


RS, - (SP) 
#1,-(R5) 
PC, RCVE 

(SP)+,R5 


SIF RECEPTION ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET 


BCC 
INC 


50004S: 
500055: 


50006S: 


500075. 
“OTHERWISE, SET 


1775e0 MoV 
MoV 
MOV 
JSR 
MOV 


: iF REPLY WASN'T A “STACK”. REPORT THE EPROP AND Ell WITH THE ERROR FLAG SET 


500108. 


50004$ 
DOSTRY 
50005$ 


DDSTRY 


DOSTRY 
50006$ 
DDSTRY. #3 
500028 


DOSTRY 
50907$ 
TSEPCODE 
21 


MSG21 
600018 


TYPE TO “STACK” AND CHECK 79 SEE THAT IT WAS THE REPLY 


# STACK, TYPE 
RS. - (SP) 
TYPE, -(R5) 
PC, CHKREP 
(SP 1+. R65 


500108 
TSEPCODE 


25 
MSG25 
50001$ 


“END OF XSTRT ROUTINE 


500008. 
500018 


SEQ 0033 


j 
Ne | 


OUTERR 
DZ0PGA 


(2) 
6843 
6844 


MACY11 30(1046) 
Pil 


012770 000207 
012772 000000 


010446 
010604 


012000 162706 


016765 
Ne2res 


013004 
O:3012 


013020 00505 


016767 


1oc7o. 


013024 
013032 


013040 016564 


013046 
013046 
013054 
013056 
013062 


026567 
002017 
005767 
003414 


117774 
005367 
005267 
005265 
005264 
000755 


013064 
013072 
013076 
013102 
013106 
013112 
013114 


000002 


1671506 
000010 


Ho0002 


167132 
N00012 


000006 


000002 
167074 


167064 


177776 


22-NOV-77 
21-NOV-77 14: 58 


000000 
000000 


16°C50 
167042 


167026 


177776 


RTS 
DOSTRY: 0 


08:02 PAGE 185-5 


PC 


EEEEEESHFFFEE SEES ESE S ESF E SH SEF StS FHFFFEEFFEFFE FETE FASE FHT HH ttt tt tests 


; THIS 


SEGMENTS OF A SIZE SUITABLE FOR TRANSMISSION OVER A DA 


LINK 


(BUFFER SIZE = 


pHtteteteete 
GETOB: 


: LEAVE ENOUG 
é mov 
apo 
“INIT SIZE T 
; CLR 
-SCRTCH HAS 


MOV 
SUB 


GET A COPY 


MoV 


500028: 
CMP 
BGE 
TST 
BLE 


-MOWE DATA | 


60003$: 


ROUTINE, SPLITS A MESSAGE OF ANY LENGTH INTO " : 
-- RETURNS BUFFER ADDRESS. BUFFER S!1ZE AND END_OF nESSAGE+ 


O 1S END_OF MESSAGE ) 
seceneesneeeensereseseesseteseeeaeSeesneoeeeeseeseneseoess 


R4,-(SP) 
SP.R4Y 
#2, SP 
H ROOM FOR A DDCMP HEADER 


BAPNT.ACRS) 
#10,ACR5) 


0 ZERO 
B(RS) 
MAXIMUM DDCMP MESSAGE $!ZE 


BASIZE.SCRTCH 
#12, SCRTCH 


OF THE BUFFER POINTER 
ACRPS).CcR4) 
REPEAT LCOP UNTIL MAX SIZE OP END OF DATA 


B«RS), SCRTCH 
50003$ 
INI TMS 
500038 


MESSAGE BUFFER 7 


@INITMA, AC KRY) 
INI TMS 

INI TNA 

BcRS) 

CCRY) 

50002$ 


NTO 


ENC OF LOOP 


Tami Sas 


SEQ 0034 


OUTERR 
DZ0PGA 


6831 
(3) 
(3) 
(3) 
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Pil 


013114 
013114 
013114 
013116 
013120 


Oisi22 


012124 


013126 
013132 


013136 


013142 
013146 
013150 
017152 


013154 
013160 


013162 


013166 
013172 


013176 
013202 
013206 


010406 
012604 
000207 


010146 
010246 


016S02 


Acfn7 


162702 


912722 


a! aww 


016501 
110122 
000301 
110112 


162712 
905202 


116722 


005267 
116722 


012701 
062701 
111122 


22-NOV-77 08:02 PAGE 185-6 
21-NOV-77 14: 58 


oco000 
000019 


000201 


000002 


000200 


167000 


166772 
166766 


002170 
000005 


500005: 

500015: 
MoV R4, SP 
MOV (SP)+,R4 
RTS PC 


PEEEEEEHE FSS ESS S ESSE SEES ESE E SESH StF ttt tT FFE Fett ttt ttt esses st tsststss 


; ROUTINE TO PROVIDE LINE PROTOCOL HEADER AND CHECKSUMS + 
; CALL WITH DATA AREA ADDRESS AND S!ZE (IN BYTES) + 
; RETURN WITH MODIFIED ADDRESS AND SIZE + 


LESSEE SESH SES FESS SF StF ESSE ESE HSS F HEF ttt SPs ttt ttt ttstttttsetse+sees+ 
PROBUF: 

Mov R1,-(SP) 

Mov R2,-(SP) 
[CHANGE POINTER TO INCLUDE DDCMP HEADER 


MOV ACR5),R2 
SUB #10,R2 


[FIRST BYTE 1S SOH (START OF HEADER) 
, MOVB —«#SOH, (R2)+ 
NEXT THO BYTES GET MESSAGE SIZE 
' MoV BCRS)-R1 
MOVB R41, (R2)+ 
SWAB Rk 
MOVB = R1- (R2) 
[SET SELECT BIT 


BISB #200, (R2) 
INC R2 


“NEXT BYTE IS LAST GOOD RESPONSE 
MOVB —- RMSGNO, (R2)+ 
“NEXT BYTE GETS MESSAGE NUMBER --- POP NUMBER FOR NEXT MESSAGE (IF ANY) 


INC MSGNO 
MOVB MSGNO, (R2)+ 


:GET THE TERMINAL ADDRESS FOR THE NEXT HEADER BYTE 
MoV #PTABLE.R1 

ADD #5,R1 

MOVE —sCR 1), (R2)+ 


:GET HEADER START ADDRESS AND SIZE IN BYTES 


SEQ 0035 


MACY11 30(1046) 22-NOV-77 08:02 PAGE 185-7 ; 
Pil 21-NOV-77 14: 58 SEQ 0036 


013210 016567 OO00000 166664 : ACRS), SCRTCH 
013216 162767 O00010 166656 #10, SCRTCH 
013224 012767 000006 166652 #6, TEMP 


COMPUTE HEADER CRC 
013232 162705 000002 #1%2,R5 
013236 010546 RS. - (SP) 
013240 016745 166640 TEMP, -(R5S) 
013244 016745 166632 SCRTCH, -(R5) 
013250 004767 003344 PC. CRC 
013254 012605 (SP)+,R5 
013256 012567 166622 (R5)+, TEMP 


;PUT CRC INTO BUFFER 


016712 166616 MOV TEMP, (R2) 
;GET ADDRESS OF MESSAGE AND MESSAGE SIZE IN BYTES 


013266 016567 O00000 166606 : MOV ACRS), SCRTCH 
013274 016567 000002 166602 MOV BCRS), TEMP 


[COMPUTE DATA CRC 


013302 162705 000002 #1%2,R5 
013306 010546 RS, -(SP) 
013310 016745 166570 TEMP, -(R5) 
013314 016745 166562 SCRTCH, -(R5) 
013320 004767 003274 PC, CRC 
013324 012605 (SP)+,R5 
013326 012567 166552 (RS)+, TEMP 


;PUT DATA CRC IN LAST THO BYTES OF BUFFER 
013332 016502 9000000 ACR5),R2 
013336 066502 000002 B(R5),R2 
013342 116722 166536 TEMP, (R2)+ 
013346 000367 166532 TEMP 
013352 116712 166526 TEMP. (R2) 


SRETURN WITH MODIFIED ADDRESS AND SIZE 


013356 016565 000002 000006 BRS). DC(RS) 
013364 062765 900012 900006 #12,D(R5) 
013372 016565 CO0000 900004 ACRS),CC(RS) 
013400 162765 000010 900004 #10, C (RS) 
013406 012602 (SP)+,R2 
013410 012601 (SP)+,R1 
013412 500008: 

013412 50001$: 

013412 000207 PC 





OUTERR 
DZDPGA. 
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Pil 


013414 


013414 


013416 
013420 
013424 
013430 


013432 
013434 
013436 
013440 
013442 


013444 
013446 
013450 
013452 


013452 


013536 
013540 


3011046) 
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010146 


010546 
012745 
004767 
012605 


103007 
104463 
000050 
002637 
004072 


012601 
006261 
000571 


026727 
001027 
005065 
012767 
010546 
016745 
004767 
012605 
103003 
012601 
000261 
000546 


016701 
062701 
111167 
012601 
006535 


22-NOV-77 08:02 PAGE 185-8 
14: 58 


000000 
002676 


166472 


000000 
000001 


177010 
000330 


166422 
000004 
166432 


init 8 ie pn ig tne aaa inde e aaearaeiaiee 
; ROUTINE TO GET TERMINAL INPUT 


H Re tbe Rs BP centers Dh OR OR 
TERIN: 

SAVE R1 

; Nov R1,-(SP) 

[GET TERMINAL RESPONSE 


‘ MoV RE, -(SP) 


MOV #0,-(R5) 
JSR PC, RCVE 
MOV (SP )+,R5 
;1F RECEIVE ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET 
BCC 50002$ 
TRAP TSERCODE 
. WORD 40 
.WORD MSG40 
. WORD AREAYO 
. RESTORE R1 FIRST 
MOV (SP)+,R1 
SEC 
BR 50001$ 
500023: 
;1F MESSAGE IS ONLY 10 BYTES. SEE IF 1T 1S AN ACK 
;1T'S OK TO BE AN ACK. BUT RECEPTION IS INCOMPLETE (CLEAR FLAG) 
000010 CMP INS1Z, #10 
BNE 50003$ 
CLR ACR5) 
177016 MoV #ACK, TYPE 
MOV RS, -(SP) 
Mov TYPE, -(R5) 
JSR PC, CHKREP 
MoV CSP )+,R5 
BCC 50004$ 
MoV (SP)+,R1 
SEC 
BR 50001$ 
500048: 
MOV INBUF, R1 
ADD #4,R1 
MOVB (R1),RMSGNO 
MOV (SP)+,R1 
BR 50000$ 
50003$: 


SEQ 0037 





OUTERR MACY11 30(1046) 22-NOV-77 08:02 PAGE 185-9 
Pil 14: 58 


DZDPGA. 21-NOV-77 SEQ 0038 
7022 > IF RECEIVE OK, CHECK THE HEADER CRC 
4k ;COMPUTE EXPECTED CRC 
7025 013540 162705 000002 SuB #1%2,R5 
(3) 013544 010546 MoV RS, - (SP) 
(5) 013546 012745 000006 MoV #6, -(R5) 
(4) 013552 016745 166370 MOV INBUF, -(R5) 
(3) 013556 004767 003036 JSR PC, CRC 
(3) 013562 012605 MOV (SP)+,R5 
my 013564 012567 170172 MoV (R5}+, AOYEX 
a ;GET THE CRC RECEIVED 
7029 013570 016701 166352 MOV INBUF,R1 
(6) 013574 062701 000010 ADD #10,R1 
7030 013600 114167 170154 MOVB -(R1), ADYRC 
7031 013604 000367 170150 SWAB ADYRC 
aes 013610 114167 170144 . MOVB -(R1),AO4YRC 
7034 ;1F THEY AREN'T THE SAME, REPORT THE ERROR. RESTORE R1 AND EXIT WITH 
oo ; THE ERROR FLAG SET 
7037 013614 026767 170142 170136 CMP ADYEX, ADYRC 
(9) 013622 001407 BEQ 500055 
7038 013624 104463 TRAP TSEPCODE 
(5) 013626 000051 .WORD 41 
(5) 013630 062411 .WORD MSG41 
(5) 013632 003726 .WORD AREA 
7039 013634 012601 MOV (SP)+,R1 
7040 013636 0006261 SEC 
(4) 013640 000475 BR 50001$ 
Aad 013642 500055: 
uy ; 
7043 ; COMPARE TERMINAL ADDRESS RECEIVED WITH THAT EXPECTED 
7044 ;AND IF THEY AREN'T THE SAME. REPORT THE ERROR. RESTORE R1 AND 
7045 ;EXIT WITH THE ERRROR FLAG SET 
7046 ; 
7047 013642 124167 167637 CMPB -(R1), STRTSA 
(9) 013646 001407 BEQ 500068 
7048 013650 104463 TRAP TSERCODE 
(5) 013652 000052 .WORD 42 
(5) 013654 002345 .WORD MSG42 
(5) 013656 003674 .WORD AREAYZ 
7049 013660 012601 MOV (SP)+,R1 
7050 013662 000261 SEC 
(4) 013664 000463 BR 50001$ 
hog 013666 ' 500068: 
7053 ;MOVE THE POINTERS PAST THE HEADER AND COMPUTE THE DATA CRC 
7054 S 
7055 013666 062767 O00010 166252 ADD #10, INBUF 
7056 013674 162767 000012 166246 SUB #12, INSIZ 
7057 013702 162705 000002 SUB #1%2,R5 
(3) 013706 016546 MoV RS, - (SP) 
(5) 013710 016745 166234 MoV INS1Z, -(R5) 


(4) 013714 016745 166226 MoV INBUF, -(R5) 


OUTERR 
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013720 004767 
013724 012605 
013726 012567 


013732 016701 
013736 066701 
013742 062701 
013746 114167 
013752 000367 
013756 114167 


013762 026767 
013770 001407 
013772 104463 
013774 000053 
013776 003224 
014000 003726 
014002 012601 
014004 000261 
014006 000412 
014010 


014010 005265 
014014 016701 
014020 162701 
014024 111167 
014030 012601 
014032 

014032 000241 
014034 

014034 000207 


014036 
014036 010446 


& 


22-NOV-77 08:02 PAGE 185-10 
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002674 
170030 


166210 


167776 


167772 


900000 
166126 
000004 
166136 


167772 


Le 


JSR PC, CRC 
MOV (SP)+,R5 
Mov (R5)+, AOYWEX 


;GET THE DATA CRC RECEIVED 


’ 


MoV INBUF, R1 
ADD INS1Z,R1 
AOD #2,R1 

MOVB -(R1), AOYRC 
SWAB AOYRC : 
MOVB ~(R1),AOYRC 


’ 


; IF THEY AREN'T THE SAME; REPORT THE ERROR, RESTORE Ri AND 
EXIT WITH THE ERROR FLAG SET 


CMP AOYRC, AOYEX 
0007 


BEQ 5 $ 
TRAP TSERCODE 
.WORD 43 
.WORD MSG43 
.WORD AREAL 
MOV (SP)+,R1 
SEC 
BR 600018 
50007%: 
; OTHERWISE; SCT COMPLETE FLAG, RESTORE R1 AND EXIT NORMALLY 
, 4 
INC ACRS) 
MOV INBUF, R1 
SUB #4,R1 
MOVB (R1),RMSGNO 
MoV (SP)+,R1 
500008: 
CLC 
500015: 
RTS PC 


LEFEEFEFF FEES EEE FFE EEE EE Ete HEE Ht ttt tet t tt ttt ttttttttt ttt sett 


; ROUTINE TO CHECK AN INPUT BUFFER FOR A STANDARD + 
; RESPONSE ("ACK" OR "STACK") + 
; LOCATION "TYPE" CONTAINS THE RESPONSE CODE EXPECTED ; 
INPUT BUFFER POINTER 1S IN “INBUF™ + 
INPUT BUFFER SIZE (iN BYTES) IS IN “INSI2" ‘ ; 


LEEEEEEEFEE EEE SEE FEET EEE EET ESE EHH test ttt ttt tttettetttetstttt+ 


CHKREP: 
MOV R4,- (SP) e 


+ 


»@ 


SEQ 0039 


NS ee eel — 


OUTERR 
DZDPGA. P 


(2) 


MACY11 3 
11 21 


014040 
014042 


014046 
014054 
014056 
014060 
014062 
014064 
014066 
014070 
014072 


014072 
014076 
014100 
014104 
014110 
014114 
014116 
014122 
014130 
014136 
014144 
014150 
014154 


014162 
014170 


014172 
014200 
014204 
014212 


014220 
014226 
014230 
014236 
014244 
014246 
014250 
014252 
014254 
014256 


8 4 
0(10%6) 22-NOV-77 08:02 PAGE 185-11 
-NOV-77 14: 58 
010604 MOV SP, R4 
162706 000002 SUB #2. SP 
;1F MESSAGE 1S NOT 10 BYTES LONG, IT CAN'T BE A CONTROL MESSAGE 
; TYPE AN ERROR MESSAGE AND EXIT WITH ERROR SET 
026727 166076 000010 CMP INS12Z, #10 
001406 BEQ 50002$ 
104463 TRAP TSERCODE 
000001 .WORD 1 
002273 .WORD MSGO1 
003570 .WORD AREADI 
000261 SEC 
000553 BR 50001$ 
500023: 
OTHERWISE, COMPUTE THE CRC AND CHECK IT AGAINST THAT SENT 
162705 000002 SUB #1%2,R5 
010546 MOV RS, - (SP) 
012745 000006 MoV #6, -(R5) 
016745 166036 MOV INBUF, -(R5) 
004767 002504 JSR PC, CRC 
012605 MoV (SP)+,R5 
012567 165762 Mov (RS)+, TEMP 
016764 166020 177776 MoV INBUF, ACR4) 
062764 Q00007 177776 ADO #7, ACR4) 
117467 177776 165736 MOVB @ACR4), SCRTCH 
000367 165732 SWAB SCRTCH 
005364 177776 DEC ACRY) 
117467 177776 165720 MOVB @ACR4), SCRTCH 
> 1F CRC'S MATCH GO ON... OTHERWISE SKIP FOLLOWING CODE 
026767 165716 165712 CMP TEMP, SCRTCH 
001076 BNE 50004$ 
; COMPARE CONTROL MESSAGE TYPE W!TH THAT PASSED AS AN ARGUEMENT 
016764 165750 177776 Mov INBUF, ACRY) 
005264 177776 INC ACRY) 
117464 177776 177776 MOVB @ACR4Y),ACRY) 
042764 177400 177776 BIC #HYBYTE. ACRY) 
:1F NOT THE EXPECTED TYPE, PRINT ERROR MESSAGE AND EXIT WITH ERROR SET 
026465 177776 000000 CMP ACR4), BCRS) 
001414 BEQ 50005$ 
016467 177776 167366 MOV ACR4), ADZA 
016567 000000 167362 MoV B(RS), A028 
104463 TRAP TSERCODE 
000002 .WORD 2 
002320 .WORD MSGO2 
003572 .WORD AREACZ 
00026! SEC 
000460 BR 50001$ 


SEQ 0040 


OUTERR 
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Pil 


014260 
014260 
014266 
014274 
014302 
014310 
014316 
014324 
014332 


014340 
014346 
014350 
014352 
014354 
014356 
014360 
014362 
014364 
014364 


014364 
014366 
014366 
014374 
014402 
014404 
014406 
014410 
014412 
014414 
014416 
014416 


014416 
014416 
014420 
014420 
014422 
014424 


21-NOV-77 


012767 


042767 


026767 
001406 
104463 
000003 
CO2345 
003674 
000261 
000416 


000414 


016767 
016767 
104463 
000004 
002411 
003726 
000261 
000401 


000241 


010406 
012604 
000207 


22-NOV-77 08:02 PAGE 185-12 
14: 58 


002170 


177400 


165540 


165510 
165504 


165614 


165544 


165534 


167364 
167360 


| OTHERWISE. CHECK TERMINAL ADDRESS 


500058: 


’ 
’ 
, 

. 


, 


50007%$: 
50006$: 


SIF CRC WAS IN ERROR, SKIP ABOVE CODE, COME TO HERE, REPORT ERROR AND 


®P TABLE. SCRTCH 


#5, SCRTCH 


@SCRTCH, SCRTCH 
#HYBYTE, SCRTCH 


INBUF. TEMP 
#5, TEMP 
aTEnP, TENP 
#HYBYTE. TEMP 


1F NOT THE EXPECTED TERMINAL ADDRESS. 
EXIT WITH ERROR SET 


TEMP, SCRTCH 
50007$ 
——— 
MSGO3 
AREAROS 


50901$ 


>EXIT WITH ERROR SET 


, 


500045: 


500108: 
500038: 


: NORMAL 
500008: 
500015: 


RETURN 


CLE 


500108 


SCRTCH. AOYRC 
TEMP, AOYEX 
TSERCOCE 

4 


MSGO4 
AREAOY 


500018 


P4, SP 
(SP )+,R4 
PC 


THEN REPORT THE ERROR AND 


SEQ 0041 


OUTERR MACY11 30(1046) 22-NOV-77 08:02 PAGE 185-13 


DZDPGA.P11  21-NOV-77 14: 58 SEQ 0042 
7177 FEES EES EFSF SES Se SSF SSS StS SSeS SF FFs SSF FSS Sh S sts shh sss sss ttt hss ttssseses 
7178 ; THIS ROUTINE SETS UP AND CHECKS FOR COMPLETE TRANSMISSION + 
7179 : RETURNS AN ERROR FLAG IF ANY ERROR OCCURS DURING TRANSMISSION + 
7180 : SET "ABORT" IF INITIALIZATION OF THE DEVICE FAILS + 
7181 LESSEE SFS SSS SSS F SSE F ESS SS SS SSS See Fs StS Ss FFs FFF s ttt FF sts t tts sett ttt tsstt 
7182 014426 XMIT: 

7185 014426 010446 Mov R4, -(SP) 

(2) O14430 010604 MOU SP, RY 
2) 014432 162706 000002 SUB #2, SP 
7182 CLEAR ERROR COUNT, TRANSMIT DONE FLAG AND RECEIVE DONE FLAG 
7189 014436 OOED64 177776 : CLR BCRY) 
7190 O14442 005067 000270 CLR XDONE 
7191 O1N4Ne 005067 000266 CLR RDONE 

192 ‘ 
7193 : START OF LOOP 
7194 ; 
7195 014452 500028: 
7196 ; 
7197 STRY TO INIT DEVICE 
7198 
2199 014452 004767 000264 JSR PC, DEVINIT 
7201 SIF ERROR OCCURRED... 
7202 
7203 014456 103033 BCC 50003$ 
7204 014460 010146 Nov R1,-(SP) 
7208 014462 010246 MoV R2,-(SP) 

6 ; 

7207 GET A COPY OF THE DEVICE REGISTERS 
7209 014464 016701 165500 Mov PTABILE.R1 
7211 014470 012702 002224 MOV #DUPREG, R2 
7217 014474 016162 000000 oD0000 MOV RCVCSR(R1), RCVCSR(R2) 
7218 014502 016152 000002 000002 Mov RCVBUF (R1). RCVBUF (RZ) 
7219 014510 016162 000004 900004 MOV XMTCSR(R1), XMTCSR(R2Z) 
7220 014516 016162 000606 00006 Nov XMTBUF (R1). XMTBUF (RZ) 
7231 014524 012602 MoV (SP)+,R2 
7232 014526 012601 Nov (SP)+,R1 

3 i 
7234 “REPORT THE ERROR AND UPDATE THE ERROR COUNT 
7235 : 
7236 O14530 104463 TRAP  TSERCODE 

(5) 014532 0c0027 WORD 23 

(5) 014534 002722 WORD  MSG23 

(5) 014536 004072 “WoRD  AREAZ3 
7237 014540 005264 177776 NC B(RY) 
7239 ‘OTHERWISE, CLEAR THE ERROR COUNT 
7240 
7241 014544 000402 BR 50004 

(3) O14546 500038: 
7242 O14546 005064 177776 CLR BCRY) 


7243 014552 50004: 
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014552 
014560 
014562 
014564 
014566 
014570 
014572 
014576 
014602 


014602 
014606 


014610 
014614 


014616 
014616 
014620 
014624 


014626 
014632 
014624 
014636 


014640 
014644 
014650 
014656 
014664 
014672 
014700 
014702 
014704 
014706 
014710 
014712 
014714 
014716 
014720 


026467 


005464 


005764 
003321 


005764 
001042 


104022 
005767 
001774 


005767 
002032 
010146 
010246 


016701 
012792 
016162 
016162 
016162 
016162 
012602 
012601 
104463 
000030 
002762 
004072 
006261 
000404 


22-NOV-77 08:02 PAGE 185-14 
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177776 


165310 
177776 


177776 


177776 


000112 


000104 


165324 
002224 
000000 
000002 
000004 
co0006 


165334 


000000 
000002 
000004 
000006 


+ 1F ERROR COUNT HAS EXCEEDED LIMITS, ABORT AND NEGATE THE COUNT 
CMP BCR4Y), ILIMIT 


BNE 50005$ 
TRAP TSERCODE 
.WORD O 
.WORD MSGOO 
.WORD AREAROO 
INC ABORT 
NE BCRY) 
500058: 
; END OF LOOP 
EXIT LOOP WHEN ERROR COUNT IS ZERO OR NEGATIVE (ABORT) 
TST BCRY) 


BGT 50002$ 


: IF NOT ABORT THEN EXECUTE THE FOLLOWING CODE 
OTHERWISE SKIP AND RETURN WITH ERROR SET 


; TST BCRY) 
BNE 50006$ 


[WAIT FOR TRANSMIT DONE FLAG TO SET 


50007%$: 
ENT CSBRK 
TST XDONE 
BEQ 600078 


SIF TRANSMIT FLAG IS NEGATIVE, AN ERROR OCCURRED 


TST XDONE 
BGE 500108 
MoV R1i,-(SP) 
MoV RZ, -(SP) 


7 1F ERROR, GET COPY OF DEVICE REGISTERS. PRINT MESSAGE AND EXIT WITH ERROR SET 
; OTHERWISE DO A NORMAL EXIT 


MOV PTABLE. R1 

MoV #DUPREG, R2 

MoV RCVCSR(R1), RCVCSR(RZ) 
MOV RCVBUF (R1), RCVBUF (RZ) 
MOV XMTCSR(R1), XMTCSR(R2) 
MoV XMTBUF (CR1), XMTBUF (RZ) 
MOV (SP)+,R2 

MOV (SP)+,R1 

TRAP TSERCODE 


: 4 
.WORD = MSG24 
.WORD AREAZ4 


50001$ 


= 
oS 
z@ 
o 
So 


50010%: 


SEQ 0043 


OUTERR 
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014720 
014722 
014722 
014724 
014726 
014726 
014726 
014730 
014730 
014732 
014734 
014736 
014740 


0:4742 
014742 
014744 
014746 
014752 


014754 


014760 
014766 
014774 


015002 


015006 


30(1046) 
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000402 


000261 
000401 


000241 


010406 
012604 
000207 
000000 
ooco00 


010446 
010604 
162706 
010146 


016701 


052751 
052761 
052761 


005067 
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000002 


165210 


000400 
000002 
101226 


000402 


900004 
000000 
000002 


BR 50011$ 
50006S: 
SEC 
BR 50001$ 
500115: 
500005: 
CLC 
500015: 
MoV R4, SP 
MOV (SP)+,R4 
RTS PC 
XDONE: O 
RDONE: 0 


ZL EEEEE EES EEE ESTEE ES ESE EEE SHEE EHF EHTS FFF FFF ttt ttt ttt ttt ttt t ttt tte tt ttttt 


; ROUTINE TO INITIALIZE A DEVICE 
: iF "INIT" IS NON-ZERO, THE ROUTINE WILL EXECUTE AND SET IT 
: RETURNS WiTH AN ERROR IF CTS CANNOT BE SET 
RETURNS WITH ERROR AND “ABORT” SET IF THE DEVICE DOES 
; NOT EXIST 
LESSEE E FSFE EEE SE EEE EEE SESE HEHE SHES S HESS FH ttt ttt teste ttt t ttt ttt tetett+ 
DEVINIT: 
MOV R4,-(SP) 
MOV SP. R4 
SUB #2, SP 
MOV R1,-(SP) 


[GET THE DEVICE ADDRESS 
k Mov PTABLE, R1 
[DO MASTER CLEAR, SET DATA TERMINAL READY. AND SET 


;PARAMETER REGISTER (DEC MODE, AUTO-CRC INHIBIT. SYNC CHARACTAR. 


BIS #MASCLR. XMTCSR(R1) 
BIS #DTR, RCVCSR(R1) 
BIS #PARAM, RCVBUF (R1) 
[SET TIMER TO ZERO 
CLR TIMER 
LOOP 
500025: 


“SET REQUEST TO SEND AND WAIT 10000 MICROSECS 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


SEQ 0044 


OUTERR 


DZDPGA. 


MACY11 3001046) 


Pil 


015006 
015012 
015016 


015020 
015024 
015030 
015034 
015040 


015044 
015052 
015054 
015060 
015062 


015062 
015070 


015072 
015100 
015106 
015114 
015122 
015130 
015136 
015142 
015146 
015152 
015156 
015160 


015164 
015170 
015176 


015204 
015210 
015214 
015220 
015224 
015226 


22-NOV-77 
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052711 
012700 
104027 


011164 
016446 
042716 
04 2664 
005267 


026767 
001403 
005764 
001752 


26767 
001507 


012767 
062767 
117767 
042767 
012764 
062764 
016746 
012746 
017446 
012746 
104037 
062706 


005067 
017464 
062764 


016746 
012746 
016446 
012746 
104037 
062706 


000004 
000100 


177776 
177776 
020000 
177776 
000344 


000340 
177776 


N00322 


002170 
000004 
165066 
177400 
002170 
000002 
165036 
015634 
177776 
000003 


000010 


000236 
177776 
000004 


164770 
015466 
177776 
000003 


000010 


165036 


165020 


165196 
165072 
165064 
165056 
177776 
177776 


177776 


177776 


08:02 PAGE 185-16 


BIS 
MOV 
EMT 


#RTS, (R1) 
#100, R0 
CSWTU 


GET THE ¢. WR TO SEND BIT AND UPDATE THE TIMER 


We Ve Ve Ve 


500035: 


(R1),ACR4) 
ACR4Y), -(SP) 
RCTS, (SP) 
(SP )+, ACRY) 
TIMER 


END LOOP 
LOOP ENDS WHEN TIMER EXCEEDS LIMIT OR CLEAR TO SEND IS UP 


TIMER, TIMLIM 
03% 


ACRY) 
500028 


SIF TIME LIMIT NOT EXCEEDED... 


‘ 


cMP 
BEQ 


GET THE DEVICE 


EMT 
ADD 


TIMER, TIMLIM 
E0C04S 


PRIORITY AND SET UP THE PECEIVE !NTERRUPT HANOLER 


#P TABLE, DEVPR | 
#4, DEVPRI 

ODE VPRI,.DEVPRI 
#HYBYTE,. DEVPRI 
#PTABLE, ACRY) 
#2, ACRY) 
DEVPRI.-(SP) 
#RINT, - CSP) 
#3, - (SP) 
CSSVEC 

#10, SP 


[CLEAR THE NEW MESSAGE FLAG 


NMSG 
@ACRY), ACRY) 
#4, ACRY) 


> SET UP THE TRANSMIT INTERRUPT HANDLER 


DEVPRI.-(SP) 
#XINT,-(SP) 
#3,-(SP) 
CSSVEC 

#10, SP 


—_—— 


SEQ 0045 


OUTERR 


DZDPGA. 


7389 
7390 
7391 

(6) 
7392 


MACY11 3001046) 


Pil 


015232 
015236 
015244 
015250 


015256 
015264 


016272 


“ele 


016300 


015306 
015310 
015310 
015312 
015316 
015324 
015332 
015340 
015346 
015350 
015352 
015354 
015356 
01£360 
015362 
015364 
015366 


015366 
015370 
015374 
015374 
015376 
015376 
015400 
015402 


015404 
015406 
015410 
015412 
015414 
015416 
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010167 
062767 
010167 
062767 


012767 
012767 


052761 
052761 


C00427 


010246 
012702 
016162 
016162 
016162 
016162 
012602 
012601 
104463 
000036 
003117 
004 266 
000261 
000404 


012601 
005267 


000241 


010406 
012604 
000207 


000000 
000000 
000000 
006000 
000000 
o000n0 


000146 
000006 
000136 
000002 


000004 
cco004 


000120 
000120 


002224 
000000 


000006 


000022 


000140 
000130 


000126 
000122 


000004 
000000 


000000 
000002 
000004 
N00006 


ay” ety 08:02 PAGE 185-17 


+;SET UP COPIES OF THE DEVICE BUFFER REGISTER ADDRESSES 


, 


Mov R1, XMTADD 

ADD #6, XMTADD 

MOV R1, RCVADD 
ADD #2,RCVADD 
[SET COUNTERS FOR FOUR SYNC'S AND FOUR FILL CHARACTERS 
f Mov #4, SYNCNT 

MoV #4, FLLCNT 


;ENABLE TRANSMIT AND RECEIVE INTERRUPTS... SET TO FULL DUPLEX 


’ 


Bis 
BIS 


#TXINTE !SENDFOD, XMTCSR(R1) 
#RXINTE, RCVCSR(R1) 


FF TIME LIMIT WAS EXCEEDED, GET REGISTER CONTENTS, PRINT MESSAGE, 
— RETURN WITH ERROR SET 


BR 
50004S: 
MoV 
MoV 
MoV 
MOV 
MoV 
MoV 
MOV 
MoV 
TRAP 
. WORD 
. WORD 
. WORD 
SEC 
BR 
500058: 
> 1F NO ERROR, 
MoV 
INC 
50000S: 
LC 
500015$: 
MoV 
MOV 
RTS 
XMTADD: O 
RCVADD: 0 
TIMER: 0 
SYNCNT: 0 
FLLCNT: 0 
INIT: 0 


500058 


RZ, - (SP) 

#DUPREG, RZ 
RCVCSR(R1),RCVCSR(RZ) 
RCVBUF (R1),RCVBUF (RZ) 
XMTCSRCR1), XMTCSR(R2Z) 
XMTBUF (R1), XMTBUF (RZ), 
(SP)+,R2 

(SP)+,R1 

TSERCODE 


500018 


DO NORMAL EXIT 


(SP)+,R1 
INIT 


R4. SP 
(5P)+,R4 
PC 


+ TRANSM!T BUFFER REGISTER ADDRESS 

RECEIVE BUFFER REGISTER ADDRESS 

+ TIMER FOR CLEAR TO SEND OPERATION 

;>NUMBER OF SYNC CHARACTERS INSERTED BEFORE DOCMP MESSAGE 
+NUMBER OF FILL CHARACTERS AFTER MESSAGE 

7 INITIALIZE COMPLETE FLAG 


SEQ 0046 


OUTERR 


DZDPGA. 


MACY11 
Pil 


015420 


015432 
015434 


015436 
015440 
015442 
015444 
015446 
015450 
015452 
015454 
01545€ 
015460 
015462 
015464 


30(1046) 22-NOV-77 08:02 PAGE 185-18 
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000377 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
oo0co00 
000000 
000000 
000000 
000000 
000006 
000000 
000000 
coo000 
000300 


RTEMP2: 


RQUEB: 
RBQUE: 
RBQUET: 


RBQUEB: 


oOoo0000Ww 


77 


RECEIVER QUEUES 


oooo0o00000000 





SEQ 0047 


+FILL CHARACTER 

;CURRENT TRANSMIT BUFFER POINTER 

+; CURRENT TRANSMIT BUFFER SIZE 

+NEW MESSAGE EXPECTED FLAG 

+CURRENT RECE'VE BUFFER POINTER 

*;CURRENT RECEIVE BUFFER SIZE 

; CONTROL FLAG FOR INPUTTING DOCMP MESSAGES 


; QUEUE POINTER FOR BUFFER PROCESSING 
;QUEUE POINTER FOR NEXT AVAILABLE BUFFER 
+ QUEUE OF BUFFER ADDRESSES AND SIZES 


; QUEUE POINTER FOR NEXT AVAILABLE BUFFER AREA 
QUEUE OF BUFFER AREAS 


OUTERR MACY11 30(1046) pred 08:02 PAGE 186 


DZDPGA.P11._21-NOV-77 1 SEQ 0048 
7602 ; 
7603 ; TRANSHISSION INTERRUPT HANDLER 
7607 ; 
7608 ;SET PROCESSOR PRIORITY LEVEL 
7610 O15466 016700 164506 ; Mov DEVPRI,RO 
Bt 015472 104041 ENT CSSPRI 
761 ; 
612 IF SYNC COUNT EQUAL TO ZERO... 
-614 015474 005767 177712 ; TST SYNCNT 
(3) 015500 001047 BNE 50006$ 
761 ; 
616 > CHECK BUFFER SIZE. 
ret? > TF GREATER THAN ZERO. THEN.... 
761 ; 
7619 015502 010146 Nov R1,-(SP) 
7620 O15504 005767 177714 TST XS 1ZE 
RES 015510 003416 BLE 500075 
1 3 
7622 SEND THE NEXT CHARACTER AND UPDATE POINTER AND COUNT 
6 ‘ 
7624 015512 117701 177704 MOVE = AXBUFFER, R1 
7625 015516 042701 177400 BIC #HYBYTE, R1 
7628 015522 042777 000400 177654 BIC #TSOM, aXMTADD 
7631 015530 110177 177650 MOVB  —«R1, AXMTADD 
7632 015534 005267 177662 INC XBUFFER 
7633 015540 005367 177660 DEC XS 1ZE 
4 ; 

7635 ; UF ALL CHARACTERS SENT. CHECK FILL COUNT 
7636 : 
7637 015544 000423 BR 50010$ 

(3) 018546 500075: 
7638 015546 005767 177642 TST FLLCNT 

(9) 015552 001406 BEQ 50011S 
76 5 
7640 ; IF FILL COUNT ISN'T ZERO SEND A FILL CHAR. AND DECREMENT COUNT 
7641 - 
7642 015554 056777 177640 177622 BIS FIL, aXMTADD 

7643 015562 005367 177626 ' DEC FLLCNT 
7644 015566 000412 BR 500125 
(3) 015570 500115: 

64 
EUG IF ALL TRANSMIT DONE, DISABLE TRANSMISSION AND SET DONE FLAG 
7647 ; 
7648 015570 016701 177610 nov XMTADD. R1 

(6) 015574 162701 000006 SUB #6,R1 
7649 015600 005267 177132 INC XDONE 
7650 015604 104021 EMT CSABRT 
7657 015606 042761 000120 o00004 BIC #TXINTE !SENDFD, XMTCSR(R1) 
7660 015614 500125: 
7661 015614 500108. 
7662 015614 012001 Mov (SP)+,R1 

66 


7664 >. OTHERWISE, SEND A SYNC AND DECREMENT THE SYNC COUNT 





OUTERR 


DZDPGA. 
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Pil 


015616 
015620 
015620 
015626 
015632 


015632 
015632 


015634 
015640 
015642 


015644 
015650 


015652 
015660 
015666 
015674 


015700 
015704 
015706 
015712 


015714 
015720 


015722 
015730 
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000405 


052777 
005367 


000002 


016700 
104041 
010146 


005767 
001111 


017767 
016777 
117777 
117701 


120127 
001472 
120167 
001467 


120127 
001027 


012767 
062767 


000626 
177560 


164540 


177556 


177600 
177544 
177514 
177530 


000226 
177506 


900005 


000007 
000002 


177556 


177550 
177552 
177534 


177502 
177502 


esl 08:02 PAGE 186-1 


, 


BR 50013$ 
50006: 
BIS #SYNC!TSOM, aXMTADD 
SYNCNT 
500138: 
;D0 A SUPERVISOR-TYPE RTI 
10027: 


; RECEPTION INTERRUPT ROUTINE 


; SET PROCESSOR PRIORITY 


MOV DEVPRI,RO 
EMT CSSPRI 
MoV R1,-(SP) 


[IF NEW MESSAGE FLAG 1S RESET.. 


TST NMSG 
BNE 50014$ 


OBTAIN A BUFFER FROM THE QUEUE AND GET THE RECEIVED BYTE 


MOV ARBQUE, RTEMP 1 
MoV RTEMP 1, @RQUE 
MOVB ARCVADD, ARTEMP 1 
MOVB ORTEMP1,R1 


; CHECK FOR SYNC/FILL CHARACTER 
; (LOOKING FOR FIRST NON-SYNC/NON-F ILL) 


CMPB R1,#SYNC 
BEQ 500158 
CMPB Ri, FIL 
BEQ 50015$ 


NOT FILL OR SYNC. CHECK FOR ENQ (DDOCMP CONTROL MESSAGE) 


CMPB Ri, #ENQ 
BNE 50016% 


, IF IT 1S AN ENQ, SET EXPECTED BYTE COUNT TO 7. SET MESSAGE SIZE 
; TO 10 (OCTAL)? AND UPDATE THE BUFFER QUEUES 


MoV #7, RTEMPZ 
ADD #2, RQUE 


SEQ 0049 


OUTERR 


DZ0PGA. 


Pil 


015736 


015770 


015770 
015776 
016000 


016000 
016004 
016006 
016012 
016014 


016014 
016022 
016030 
016032 


016032 
016036 
016036 


016036 
016042 
016050 
016056 
016060 
016066 


016066 
016072 


016072 
016074 


MACY11 30(1046) 
77 


21-NOV- 


012777 
062767 


012767 


012767 
000417 


120127 
001403 
120127 
001007 


062767 
012767 
000402 


005367 


005267 
062767 
026727 
003403 
012787 


005267 


006513 
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000010 
000002 
177462 


615442 


177777 


000201 
000220 


000002 
000001 


177370 


177366 
000002 
177402 


015460 


177334 


177474 
177466 
015454 


177450 


177436 


177416 
177404 


177406 
015464 


177370 


MOV #10, dRQUE 


50017% 
MOV #RQUET, RQUE 
500175: 


: SET COUNTER FLAG TO -1 (MESSAGE SIZE COUNT COMPLETE) 
Mov #-1, CNTFLG 
BR 500208 
500168: 
; NOT FILL, SYNC OR ENQ. CHECK FOR SOH OR DLE (DDCMP DATA MESSAGE) 
; CMPB «R14, #SOH 

BNE 50022 
50021 


; MOVE QUEUE POINTER TO SIZE ENTRY AND SET COUNTER FLAG TO 1 (EXPECT 
; FIRST COUNT BYTE) 


ADD #2, PQUE 

MOV #1, CNTFLG 

BR 50023$ 
50022: 


; BYTE WASN'T ANY OF THE LEGAL CHARACTERS... FORCE 
; A RESTART BY FORCING THE NEW MESSAGE FLAG TO RESET ON EXIT. 


DEC NMSG 
500235: 
500205. 
S COUNT THE CHARACTER AND UPDATE THE FREE BUFFER QUEUE 
: INC RTEMP1 


ADD #2, RBQUE 

CMP RBQUE, #RBQUEB 

BLE 50024$ 

MoV #RBQUET. RBQUE 
500248: 


> SET THE NEW MESSAGE FLAG 
: EXIT ROUTINE 


INC NMSG 
£00158: 


; NEW MESSAGE FLAG IS SET... CONTINUE BUILDING MESSAGE 


: BR 500255 
500148: 


SEQ 0050 





MACY11 
GA. P11 


016074 


016102 
016106 


016110 
016116 
016124 
016130 
016134 
01613€ 


016136 
016142 


016144 


016164 
016170 


016172 
016200 


016206 


016214 
016222 
016230 
016232 
016240 
016240 


3011046) 
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117777 


005767 
003413 


117767 
042767 
005267 
005367 
000472 


005767 
001641 


010146 
117701 
005267 
000301 
042701 
060167 
012601 


016777 
062777 


062767 


062767 
026727 
003403 
012767 


005367 
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177306 


177326 


177314 
177400 
177300 
177300 


177272 


177256 
177252 


140377 
177242 


177234 
000012 


qon007 


000002 
177212 


015442 
177170 


177326 


177314 
177206 


177240 
177232 


177216 


177216 
015454 


177200 


+NOT A NEW MESSAGE... GET BYTE AND STORE IT 
MOVB ORCVADD, ORTEMP 1 
; 1F COUNTER FLAG 1S GREATER THAN ZERO. BYTE IS ALSO THE FIRST COUNT BYTE 


TST CNTFLG 
BLE 50026$ 


PUT THE BYTE IN RTEMPZ2 (EXPECTED COUNT). UPDATE THE BUFFER POINTER 
, os te ate COUNTER FLAG (SET TO GET SECOND COUNT BYTE) AND 


MOVB ORTEMP1,RTENPZ 
Bic #HYBYTE, RTEMPZ 


INC RTEMP1 

DEC CNTFLG 

BR 50027$ 
500263: 


COUNTER FLAG NOT GREATER THAN ZERO. iS IT ZERO? 


TST CNTFLG 
BNE 509308 


IF ZERO, BYTE 1S ALSO SECOND BYTE OF COUNT (6 HIGH ORDER BITS) 
GET IT, MASK IT AND PUT !T INTO RTEMPZ (EXPECTED COUNT) 


MoV Ri,-(SP) 
MOVB ORTEMP1,R1 
INC RTEMP1 
SWAB R1 

BIC #140377,R1 
ADD R1,RTEMPZ 
MOV (SP)+,R1 


PUT THE COMPLETE SIZE IN THE QUEUE (EXPECTED COUNT + 
1Z (OCTAL) BYTES OF HEADER AND CRC) 


MOV RTEMPZ, MRQUE 
ADD #12, @RQUE 


ADJUST EXPECTED COUNT TO INCLUDE THE REMAINDER OF THE HEADER AND 
_ THE DATA CRC 


ADD #7, RTEMP2 
UPDATE THE QUEUE AND DECREMENT THE COUNTER FLAG ‘COUNT COMPLETE) 


ADD #2, RQUE 

CMP RQUE, #RQUEB 

BLE 50031$ 

MOV #RQUET, RQUE 
500315. 

DEC CNTFLG 





SEQ 0051 


ae, 


OUTERR MACY11 30(1046) * ow pend 08:02 PAGE 186-4 


DZDPGA. P11 21-NOV-77 SEQ 0052 
7821 ; GO DO AN RTI 
7822 ; 
7823 016244 000426 BR 5003253 
mt 016246 500305: 
7825 ; COUNTER FLAG IS LESS THAN ZERO... THIS IS A DATA BYTE 
ma ; UPDATE POINTER AND COUNT 
7828 016246 005267 177156 P INC RTEMP1 8 
4 016252 005367 177154 DEC RTEMPZ ~ 
7831 ; 1F COUNT HAS REACHED ZERO. END OF MESSAGE. SET DONE FLAG 
7832 016256 O00&767 177150 TST RTEMPZ 
(9) 016262 001017 , BNE 50033$ 
at 016264 005267 176450 INC RDONE 
ao : FORCE DUP TO RESTART RECEPTION 
7838 016270 016701 177112 ; Mov RCVADD, Ri 
(6) 016274 162701 000002 SUB  *#2,R1 
7839 016300 042761 000020 9000000 BIC ’ @RCENBL, RCVCSR(R1) 
A ap 016306 052761 000020 9000000 BIS #RCENBL, RCVCSR(R1) 
7843 : ABORT ANY WAITS AND RESET NEW MESSAGE FLAG 
hy F 
7845 016314 104021 EMT CSABRT 
7846 016316 005007 177104 CLR NMSG 2 
7847 016322 500335: 
7848 016322 50032%: 
7849 016322 5002735: 
7850 016322 500255: 
7851 ; 
7852 * ;00 RTI 
7853 : 
7854 016322 012601 MoV (SP)+,R1 
7855 01632% L10030: 
(2) 016324 0600002 
7856 
7857 
7858 
7859 
7860 SERRE EEE EEE EE EEE EEE FEF EE EE FEES EEE EEF FEF FFF FFE ttt ttt t tte t ttt tttett 
7861 j + 
7862 ; ROUTINE TO GET AN INPUT BUFFER FROM THE INPUT QUEUES + 
7863 : + 
7864 -. : WILL RETURN AN ERROR IF TERMINAL DOES NOT RESPONQ + 
7865 ; + 
7866 : ARGUEMENT CIF SET) INHIBITS ERROR PRINTOUT. THIS ALLOWS 4 
7867 : THE PROGRAM TO RETRY THE STRT-STACK SEQUENCE WITHOUT HAVING + 
7868 : AN ERROR MESSAGE EACH TIME + 
7869 + 
*7870 SERERFEFEFEEEEEEEEEE EEF EEE FETE FEET SESE EEE SHEE ttt ttt ttt t teste tte ttt tete 
7871 016326 RCWE: 
7872 : 
7873 ;RESET TIMER 





dl. -_ i ..._/ st a oe = —— -— a wa. eu iD ll a, - 


8 5 
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7875 016326 016767 161446 177054 Nov 0, TIMER 
7877 G0 TO SUPERVISOR FOR AWHILE AND INCREMENT TIMER 
7879 016334 50002: 
7880 016334 012700 000100 Mov #100, RO 

(3) 016340 104027 ENT CSUTU 
7881 016342 005267 177942 INC TIMER 
7883 LOOP UNTIL TIME LIMIT EXCEEDED OR RECEIVER DONE FLAG IS SET 
7885 016346 026767 177036 163534 CMP TIMER, TIMLIM 

(6) 016354 002003 BGT 50003 

(4) 016356 005767 176356 TST RDONE 

(7) 016362 001764 BEQ 50002$ 

(4) 016364 500035: 
7886 é 
7887 SRESET THE NEW MESSAGE FLAG 
7889 016364 005067 177636 ; CLR NMSG 
7891 a THE TIME LIMIT WASN'T EXCEEDED. . 
7893 016370 026767 177014 163512 — CMP TIMER, TIMLIM 

(9) 016376 002044 BGE 50004$ 
7894 ; 
7895 RESET THE TIMER 
78% | “CHECK FOR ERROR (RDONE LESS THAN ZERO) 
789 3 
7898 016400 005067 177004 CLR TIMER 
7899 016404 005767 176330 TST RDONE 
69) 016410 003426 2 BLE 50005$ | 
7901 ; NOT ERRROR, GET BUFFER ADDRESS AND SIZE FROM QUEUE AND UPDATE QUEUE 
7903 016412 017767 177020 163526 — nov |RQUEUE, INBUF 
7904 016420 062767 000002 177010 ADD #2, RQUEUE 
7905 016426 017767 177004 163514 nov DRQUEUE, INS12 
7906 016434" 062767 000002 176774 ADD #2, RQUEUE 
7907 016442 026727 176770 015454 CMP RQUEUE, #RQUEB 

(9) 016450 003403 BLE 50006$ 
7908 016452 012767 O15442 176756 MOV #RQUET, RQUEUE 
7909 016460 500068: 
7910 
7911 SRESET DONE FLAG AND LEAVE 
791 5 
7913 016460 005067 176254 CLR ROONE 
7914 016464 000410 BR 500075 

(3) 016466 500055: 
791 Z 
7916 “ERROR DID OCCUR... RESET THE DONE FLAG, REPORT ERROR. RETURN WITH ERROR 
7917 ; 
7918 O16466 005067 176246 CLR RDONE 
7319 016472 104463 TRAP  TSERCODE 

(5) 016474 CO0032 =. “WORD 2 


6 
(5) 016476 003062 .WORD MSG26 


OUTERR 
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016500 
016502 
016504 
016506 
016506 
016510 


016510 
016514 
016516 
016522 
016526 
016530 
016534 
016542 
016550 
01655¢€ 
016564 
016566 


016570 
016574 
016576 
016600 
016602 
016604 
016606 


016606 
016610 
016612 
016612 
016612 
016614 
016614 


016616 
016616 
016616 
016616 
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004264 
000261 
000443 


000441 


005067 
010146 
016701 
162701 
010246 
012702 
016162 
016162 
016162 
016162 
912602 
C12601 


005765 
001004 
104463 
000037 
003147 
004 266 


000261 
000401 


000241 
000207 


000207 


176674 


176664 
000002 


002224 
000000 
000002 
000004 
000006 


000000 


000000 
006002 
000004 
000006 


a —-«. WORDS AREAZ6 
SEC 
BR 50001 
500075: 
50010 
500045: 
; TIME LIMIT EXCEEDED... RESET TIMER, GET REGISTER CONTENTS 
CLR TIMER 
nov Ri, -(SP) 
Mov se RCVADD, R1 
SUB #2,R1 
Mov RZ, -(SP) 
MOV —s- #DUPREG, R2 
MOV se RCVCSR(R1). RCVCSR(R2? 
MOVs RCVBUF (R1), RCVBUF (R2) 
MOV XMTCSR(R1), XMTCSR(RZ) 
Mov XMTBUF (R1), XMTBUF (RZ) 
Mov (SP)+,R2 
Mov (SP)+,R1 
; IF NOT INHIBITED, PRINT ERROR MESSAGE 
TST —- DDSTRTCRS) 
BNE 500115 
TRAP - TSERCODE 
WORD 31 
WORD MSG31 
WORD AREAS! 
500115: 
RETURN WITH ERROR IN ANY CASE 
SEC 
BR 500015 
500105: 
500008: 
LC 
500015: 
TS PC 


LEFEEES EFS E SEES EEE SHEE HEHE SE FEES te Hts tte ttt tt tts ti teste seseseeeees 


DUMMY ROUTINE FOR COMPATIBILITY 


, 


, 


aed 08:02 PAGE 186-6 


+ 
+ 
+ 


LEPEEEEFEF ESE HEHEHE EEE EEE EEE EEE EEE SES ESS dette trtte sete tteseteses 


INSERR: 
50000S: 
50001S: 


RTS 


PC 


SEQ 0054 


OUTERR 
DZDPGA 


MACY11 30(1046) 


Pil 


016620 
016620 
016622 
016624 
016630 
016632 
016634 
016636 
016642 
016646 
016650 


017042 
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010446 
010604 
162706 
010146 
010246 
010346 
016501 
016502 
005003 


005702 


016446 
040316 


O000C04 


000000 
000002 


177776 
177400 


177776 
177776 
177776 
177776 
177760 
177776 
017074 
177776 
177417 
177774 
177774 
177774 
017074 
CO0040 
177774 
177774 
177776 
177774 
177776 
000377 


177776 


177776 


177774 
177776 


177776 
177776 
177774 


177774 
177774 
177774 


a ylad 08:02 PAGE 186-7 


. 


SFEFFEEFHSF ESSE SS SSH SSeS Ses SSH St Fst FSF F STFS FFs Hes +Htst ttt ttt ests es tess 


THIS ROUTINE COMPUTES CRC-16 AND REQUIRES THREE ARGUMENTS: + 
DATA ADDRESS. DATA SIZE (IN BYTES) AND A WORD LOCATION + 
FOR THE COMPUTED CRC + 
3.2.1.2.4, 3.2.1.2.4% 3.2.20.1.2, 32.20.31, + 
3.2. 20.6.2, 3.2. 20.6.4 AND 3.2.20. 10.1 + 
+ 

+ 

+ 

+ 


«sD Be Bo Ge & 


THIS 1S A STANDARD ROUTINE FROM DEC'S NETWORK GROUP 


; 
; 
; FEFEESSSSE SESS SSS SHH S HSS HS SSF S HHS StS HFSS HHS Fst Hts Hess sss s esse esse ees 
CRC: 

MOV R4,-(SP) 


MoV SP,R4 
SUB #4, SP 
MoV Ri,-(SP) 


MOV R2,-(SP) 
MOV R3,-(SP) 
MoV ACRS),R1 


MoV B(RS),R2 

CLR R3 
50002S: 

TST R2 


BLE 50003$ 
MOVB (R1)+,D(R4) 


BIC RHYBYTE, DCRY) 
DEC R2 

MoV R3,-(SP) 

BIC DRY), (SP) 
Bic R3,0(R4) 

BIS (SP)+, D(R4) 


MoV DCRY),- ECR4) 
Bic #177760, D(R4) 
ASL DCRY) 

ADD #CRCTAB, DiRY) 
MoV @D(R4), DC RY) 


BIC #177417, E(R4! 
ASR ECR4) 
ASR ECR4) 
ASR ECR4) 


ADD #CRCTAB.EC(RY) 
ADD #32. -E(R4) 
MoV OE (RY) E CRY) 
MoV ECR4), -(SP) 
BIC D(R4), (SP) 
BIC ECR4), DCR4) 
BIS (SP)+#, D(R4) 
BIC #LOBYTE.R3 


R3 
MoV D(R4Y), - (SP) 
BIC R3, (SP) 


SEQ 0055 


OUTERR 


DZDPGA. 


MACY11 30(1046) 
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017044 
017050 
017052 
017054 
017054 
017060 
017062 
017064 
017066 
017066 
017066 
017070 
017072 


017074 
017076 
017100 
017102 
017104 
017106 
017110 
017112 
017114 
017116 
017120 
017122 
017124 
017126 
017130 
017132 
017134 
017136 
017140 
017142 
017144 
017146 
017150 
017152 
017154 
017156 
017160 
017162 
017164 
017166 
017170 
017172 


21-NOV-77 1 


046403 
052603 
000676 
010365 

3 


012601 


010406 
012604 
000207 


000000 
140301 
140601 
000500 
141401 
001700 
001200 
141101 
143001 
003300 
003600 
143501 
002400 
142701 
142201 
002100 
000000 
146001 
154001 
012000 
170001 
036000 
024000 
162001 
120001 
066000 
074000 
132001 
050090 
116001 
104001 
042000 


177776 


000004 


500035: 


50000S: 
500015: 


CRCTRB: 


22-NOV-77 08:02 PAGE 186-8 
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000000 
140301 
140601 
000500 
141401 
001700 
001200 
141101 
143001 
003300 
003600 
143501 
002400 
142703 
142201 
002100 
000000 
146001 
154001 
012000 
170001 
036000 
024000 
162001 
120001 
066000 
074000 
132001 
050000 
116001 
104001 
042000 


D(R4Y),R3 
(SP)+,R3 
500025 


R3,CCRS) 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


R4, SP 
(SP)+,R4 
PC 


SEQ 0056 


OUTERR 


DZ0PGA. 


MACY11 3001046) 
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017174 


017200 
017206 
017214 


017222 


017226 


017230 
017232 
017236 
017242 
017244 
017246 
017250 
017252 
017254 
017256 
017260 
017262 


017262 
017266 
017272 


017276 
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00£067 


016767 
042767 
016767 


004767 


103015 


010546 
012745 
004767 
012605 
104463 
000062 
003271 
004072 
104006 
104032 
000354 


162705 
004767 
012567 


103015 


176216 


000744, 


100001 
000732 


173032 


000000 
177354 


000002 
174122 
000650 


— 08:02 PAGE 187 


; HARDWARE TESTS 3.2 


’ 


FOOOOOOOI OOOO OO OOO OOOO ODO OOOO OOO OOOO 
; SELF TEST 3. 2¢ ° 
$9000000000000000000000000000000000 
/FORCE INIT OF COMM DEVICE AND LINK 


, 


CLR 


INIT 


GET MESSAGE ADDRESS AND SIZE 


, 


162724 MOV 
162716 BIC 
162712 MoV 


MONSG, OUTMSG 
#100001, OUTNSG 
MOMSG+2, OUTMSG+2 


; SEND THE MESSAGE 


| JSR PC, TEROUT 

“*F ERROR... 

| Bcc }8=—s« S 0004S 

: INSERT ERROR INTO STATISTICS TABLE (MANUFACTURING VERSIONS ONLY), 


; REPORT THE ERROR, 


REQUEST SUPERVISOR TO LOOP 


IF LOOPING ENABLED (EXIT TEST IF NO LOOPING) 


500045: 
[LOOK FOR ACK 
SUB 


JSR 
MOV 


RS. - (SP) 
#0,-(R5) 
PC, INSERR 
(SP)+,R5 
TSERCODE 
50 

MSG5O 
AREAYO 
CSCLP1 
CSEXIT 
L10031- 


#1%2,R5 
PC, TERIN 
(R5) +, MCOMP 


“VF ERROR... INSERT ERROR INTO TABLE (MANUFACTURING TEST ONLY) 
: REPORT THE ERROR, REQUEST LOOP IF ENABLED «EXIT TEST 
IF NO LOOPING) 


BCC 


50005$ 


SEQ 0057 


OUTERR 


DZDPGA. 


MACY11 30(1046) 
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017300 
017302 
017306 
017312 
017314 
017316 
017320 
017322 
017324 
017326 
017330 
017332 


017332 
017336 
017340 
017342 
017344 
017346 
017350 
017352 
017354 
017356 


017356 
017362 
017366 


017370 
017376 
017404 
017412 


017416 
017420 
017422 
017426 
017432 
017434 
017436 
017440 
017442 
017444 
017446 
017450 
017452 


010546 


000314 


005767 
001407 
104463 
000062 
003271 
004072 
104006 
104032 
000270 


005067 
012700 
104026 


016767 
042767 
016767 
004767 


103015 
010546 
012745 
004767 
012605 
104463 
000062 
003271 
004072 
104006 
104032 
000174 
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000000 
177304 


000610 


176034 
000400 


000564 
100001 
000552 
172642 


000000 
177164 


t 


162534 
162526 
162522 


MOV RS, - (SP) 
MOV #0, -(R5) 
JSR PC, INSERR 
MOV (SP)+,R5 
TRAP TSERCODE 


.WORD 50 
.WORD MSG50 
.WORD AREAYO 
EMT CSCLP1 
EMT CSEXIT 
L10031-. 


500058: 


iF MESSAGE WAS NOT AN ACK... ERROR 
REPORT ERROR, LOOP IF ENABLED, EXIT TEST IF NOT 


TST MCOMP 
BEQ 50006$ 
TRAP a 


, 


WORD 
-WORD NSG5O 
“WORD AREAYO : 


ENT CSCLP1 
ENT CSEXIT 
L10031-. 
£0006S: 


S FORCE A RESTART ON THE LINK AND WAIT FOR SELFTEST TO COMPLETE 


CLR INIT 
MOV #400, R0 
EMT CSWTM 


; SET UP MESSAGE ASKING FOR RESULTS AND SEND IT 


MoV MOMNSG1, OUTMSG 
BIC #100001, OUTNSG 
MOV MOMSG1+2, OUTMSG+2 
JSR PC, TEROUT 
AF ERROR.... INSERT ERROR IN TABLE (MANUF. TESTS ONLY), REPORT ERROR, 
LOOP IF ENABLED, EXIT TEST IF NO LOOPING 
BCC 50007$ 
MOV RS, - (SP) 
MoV #0, -(R5) 
JSR Pc, INSERR 
MoV (SP)+,R5 
TRAP TSERCODE 
.WORD 50 
.WORD MSG50 
.WORD AREAYO 
ENT CSCLP1 
EMT CSEXIT 
L10031-. 
500078: 


SEQ 0058 


e 


OUTERR 
DZDPGR 


MACY11 30(1046) 


.Pil 


017452 
017452 


017456 


017526 


017526 
017532 
017536 


017542 
017544 
017546 
017552 
017556 
017560 
017562 
017564 
017566 
017570 
017572 
017574 
017576 


017576 
017602 


017604 
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004767 


103023 
010546 
012745 
004767 
012605 
010546 
012745 
004767 
012605 
104463 
000062 
003271 
CO4072 
104906 
104032 
000120 


162705 
004767 
012567 


103015 
010546 
012745 
004767 
012605 
104463 
000062 
003271 
004072 
104006 
104032 
000050 


005767 
001723 


004767 


000170 


000000 
177124 


000001 
177110 


000002 
173656 
000404 


000000 
177040 


000344 


000146 


oy wit 08:02 PAGE 187-2 


SACK TERMINAL AND GET ITS RESPONSE 


; HANDLE ERROR Ir ONE OCCURED WHILE ACK' ING 


500108: 
JSR PC, OUTREP 
BCC 50011$ 
MOV RS, -(SP) 
MOV #0, -(R5) 
JSR PC, INSERR 
MOV (SP)+,R5 
MOV RS, - (SP) 
MOV #1,-(R5) 
JSR PC, INSERR 
MOV (SP)+,R5 
TRAP TSERCODE 
.WORD 50 
.WORD MSG50 
.WORD AREAYO 
EMT CSCLP1 
EMT CSEXIT 
. WOR LiI031-. 


500115: 


[GET THE RESPONSE 


SUB 
JSR 
MOV 


5001 2%: 


: REPEAT THE LOOP UNTIL A MESSAGE 1S RECEIVED 


TST 
BEQ 


[PROCESS THE MESSAGE RECEIVED 


JSR 


#1%2,R5 
PC, TERIN 


(RS) +, MCOMP 
HANDLE ERROR IF ONE OCCURED 


50012$ 
RS, -(SP) 
#0, -(R5) 
PC, INSERR 
(SP )+,R5 
TSERCODE 
59 


MSG5O 
AREAYO 
CSCLP1 
CSEXIT 
L10031-. 


MCOMP 
50010$ 


PC, STINPT 


SEQ 0059 


OUTERR 


DZ0PGA. 


MACY11 30(1046) 


Pil 


017610 
017612 
017614 
017620 
017624 
017626 
017630 
017632 
017634 
017636 
017640 
017642 
017644 


017644 
017644 


017646 


017646 
017654 
017662 


017670 
017674 
017676 
017702 
017706 
017712 
017714 


017720 
017726 
017734 


103015 


000002 


104901 


116767 
116767 
116767 


162705 
010546 
012745 
012745 
004767 
012605 
012567 


012767 
012767 
004767 
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000001 
176772 


162312 
162306 
163617 


000002 


000006 
620170 
176706 


00025¢ 


020170 
000010 
174466 


SIF IN ERROR... INSERT ERROR INTO TABLE (MANUF. TESTS ONLY, REPORT 
;ERROR, LOOP IF ENABLED, EX!T TEST IF NOT 
: BCC 50013$ 
MOV RS, -(SP) 
MOV #1,-(R5) 
JSR PC, INSERR 
MoV (SP)+, RS 
TRAP  TSERCOVE 
WORD 50 
“WORD MSG50 
"WORD  AREAYO 
EMT CSCLP1 
EMT CSEXIT 
WORD L10031-. 
500135: 
SEND OF TEST 
10031: 
EMT CSETST 
SHEESH HEHE Ss FESEFEE HES E SEES SESE SESH HFSS FFF tsetse sss se ssssss tt tsese 
; + 
ROUTINE TO SEND AND ACK IN ORDER TO POLL A TERMINAL ’ 
, ” 
> SEEESHEEHEFES ESSE FSFE SHEE EE EF EEE FEF EFE SF ES EFF AEFE SESE FES H+ SHH Hee sesse 
OUTREP. 
S INSERT MESSAGE NUMBER (LAST MESSAGE SENT) AND RESPONSE NUMBER 
“(LAST MESSAGE RECEIVED).... INSERT STATION ADDRESS 
000320 MOVB -MSGNO. MSGN 
000311 MOVB —- RMSGNO, REPN 
000305 MOVB - STRTSA. REFA 
: COMPUTE AND INSERT CRC 
; SUB #142. RS 
MOV RS, - (SP) 
MoV #6. -(RS) 
MoV #2EPH, -(RS) 
JSR PC, CRC 
MOV (SP)+,R5 
MOV (RS) +, REPCRC 
“SET UP BUFFER POINTER AND SIZE AND SEND THE “MESSAGE 
1754074 Moy SREPM, XBUFFER 
175470 MOV #10, XSIZE 
JSR PC, XMIT 


SEQ 0060 


JOUTERR MACY11 30(1046) 22-NOV-77 08:02 PAGE 187-4 


8326 020032 062701 000003 ADD #3.R1 


D2DPGA. P11 21-NOV-77 14: 58 SEQ 0061 | 
8278 : a) 
8279 i IF AN ERROR OCCURRED, RETURN W!TH ERROR. OTHERWISE RETURN NORMALLY 
8281 017740 103004 f BCC 50002$ 
8282 017742 005267 162152 INC OUTERR | 
8283 017746 000261 SEC 

(4) 017750 0o000401 pe 50001$ 
8284 017752 50002S: 
8285 017752 50000: 

(2) 017752 000241 CLC 

(3) 017754 500015: 

(2) 017754 000207 RTS PC 
8286 
8287 
$288 | 
8289 
8290 
8291 LEEEFEEFEF ESE FEES HESS SESE SEE SESE FFF FSF Ht Fests sts sts sssssses | 
8292 ; + 
8293 ; ROUTINE TO PROCESS TERMINAL SELFTEST RESULTS + | 

> + 

8295 SHEE SESH SH SESS SSS SSS SSS H EHH HEHE Fs esses ttt sss tsetse settee tete++e+ H 

8296 017756 STINPT: | 

8297 017756 010146 mov R1.-(SP) | 

8298 017760 010246 Mov R2, -(SP) | 

8299 017762 010346 Mov R3,-(SP) | 

8301 “SKIP RESPONSE HEADER AND CHECK FIRST DATA BYTE 

8302 

8303 017764 016701 162156 Mow INBUF. R14 

cy, 017770 062701 oo00004 AnD #4,R1 

uy ; 
8305 SIF IT 1S "RA", GOOD RESPONSE. OTHERWISE | 
6 ; 

8307 017774 121127 9000101 CMPB (R1),#101 

<2 020000 001455 BEQ 50002$ | 

8309 GET THE BYTE AND CHECK TO SEE iF iT !5 "M" (MEMORY ERROR) 

8310 : 

8311 020002 112103 MOVB (R1)+,R3 

8312 020004 120327 000115 CMPB—saR3, #115 

ep 020010 001026 BNE 50003$ 

1 

8314 MEMORY ERROR...GET THE TYPE AND BANK NUMBER 

8315 INSERT INTO ERROR MESSAGE. REPORT THE ERROR AND 

8316 RETURN WITH ERROR 

8317 ; (NOTE: ERROR REPORTING PROTOCOL DELIMITERS ARE 

8318 IGNORED. THIS PROGRAM WILL NOT ACCEPT INPUT FROM 

8319 ANY OTHER INTELLIGENT TERMINAL PROPERLY. : 

8320 ; 

8321 020012 062701 000002 ADD #2.R1 

8322 020016 012702 003446 MoV #NTY, R2 

8323 020022 112122 MOVB (RI), (R24 | 

8324 020024 112122 MOVB (R14, (R24 

8325 020026 012702 003462 mov #BNO,R2 
! 
| 
{ 
i 
J 
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Pil 21-NOV-77 SEQ 0062 
020036 111103 MOvVB (R1),R3 
020040 062703 000060 ADD #60. R3 
020044 110312 MOvVB R3, (RZ) 
020046 104423 TRAP TSERCODE 
020050 000107 .WORD 71 
020052 003422 .WORD MSG71 
020054 012603 MoV (SP)+,R3 
020056 012602 MOV (SP)+,R2 
020060 012601 MoV (SP)+,R1 
020062 000261 SEC 
020064 000427 BR 500015 
020066 500035: 
; NOT A MEMORY ERROR OR PASS... CHECK FOR "“P” (PROCESSOR ERROR) 
020066 120327 000120 CMPB R3, #120 
020072 001010 BNE 50005$ 
PROCESSOR ERROR... REPORT !T AND EXIT WITH ERROR 
020074 104423 TRAP TSERCODE 
020076 000110 -WORD 72 
020100 003464 .WORD MSG72 
020102 012603 Mov (S°)+,R3 
020104 012602 MoV (SP)+,R2 
020106 012601 MoV (SP)+,R1 
020110 000261 SEC 
020112 O00414 BR 500018 
020114 £0005$-: 


: RESPONSE WAS NOT LEGAL. REPORT !T AND RETURN WITH ERPROP 


020114 104423 TRAP TSERCODE 
020116 000106 -WORD 70 
020120 003367 WORD MSG70 
020122 012603 MoV (SP)+,R3 
020124 012602 MOV (SP)+,R2 
020126 012601 MeV (SP)+,R1 
020130 000261 SEC 

020132 O00404 BR 500018 
020134 50006$: 

020! 34 50004S: 

020134 500028: 

020134 012603 MOV (SP)+,R2 
020136 012602 MoV (SP 3+,.R2 
020140 012601 MoV (SP y4+.R1 
020142 50000$: 

020142 000241 CLC 

020144 500018: 

020144 000207 RTS PC 


“MESSAGE ARER FOR SELFTEST 


020146 900000 MCOMP: 0 
020150 020154 MONSG: . +4 





OUTERR 


DZ0PGA. 
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020152 
020154 
020157 
020160 


020160 
020162 
020164 
020167 
020170 


020170 


020200 
020206 
020214 


020222 


020226 
020230 
020232 
020236 
020242 
020244 
020246 
020250 
020252 
020254 
020256 
020260 
020262 


020262 
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oo0004 
040 
v00 


120165 


016767 
016767 
016767 


004767 


103015 
010546 
012745 
004767 
012605 
104463 
000063 
003326 
004072 
104006 
104032 
000446 


010146 


002 


002 


001 


157574 
157566 
157560 


a9 


172260 


000000 
176354 


a ted 08 


050 


051 


200 


161706 
161710 
161706 


:G2 PAGE 187-6 


EMOMG1. 
MOMSG1: 


EMDNG2Z: 


SACK MESSAGE AREA 


REPM: 
REPN: 
MSGN: 

EPA: 


EMONG1-2-. 
. BYTE 40, 2,50,0 


. EVEN 

. +100005 
EMDNG2-2-. 

. BYTE 40, 2,51,0 


ee 


. BYTE ENQ. ACK, 200 
BYTE 0 


BYTE C 
REPA: . BYTE 9 
REPCRC: . WORD 0 


COL@OLOlOlelOlLere Lele @Ler el OLOleleles Ol OL @l OF OF OL. 


LOOPBACK TEST 


“CLEAR ALL FLAGS 


MOV 
MOV 
MOV 


C, ABORT 
0, EOMSG 
0. EXP INP 


SSTART THE LINK (INIT DEVICE, DO DDCMP STRT: 


SF ERROR DURING START-UP... INSERT INTO TABLE ‘MANUF TESTS ONLY. 


JSR 


PC. XSTRT 


;1T- LOOP IF ENABLEO--EXIT IF NOT 


500075: 


500075 
RS, - (SP) 
#0, -(RS) 
PC, INSERR 
(SP)+,R5 
TSERCODE 
51 


M5G51 
AREAYO 
CSCLP1 
CSEXIT 
L10032-. 


> E> IOIIVIOOOIOD 

: <> 

: > 

‘ “7 

>I OOOO OOOO OOOO OOOO GOD 
REPORT 


FILL MESSAGE AREA WITH 256 BYTES OF SELECTED PATTERN 


MOY 


R1i,-(SP) 


SEQ 0063 


OUTERR 
DZDPGA 
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Pil 21-NOV-77 


020264 012701 
020270 005767 
020274 001403 
020276 005067 
020302 000403 
020304 

020304 012767 
020312 

020312 

026312 016721 
020316 020127 
020322 001373 


020324 012701 
020330 905301 
O20332 112711 


020336 012701 
020342 062701 
O20346 111167 
020352 01260! 


020354 112767 


020362 112767 


020370 162705 
020374 0:0546 
020376 012745 
020402 012745 
020406 004767 
020412 012605 
020414 012567 


020420 162705 
020424 010546 
020426 012745 
020432 012745 
020436 004767 
020442 012605 
020444 012567 
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021066 
171150 


161600 


125125 


161564 
021466 


021466 
000001 


002170 
000005 
000511 


009024 


000001 


000002 
000006 
021056 
176206 


000444 


co0002 
000400 
021066 
176156 


001016 


161570 


900504 


000472 


e 


50010$: 


500115: 
5001 2%: 


GET THE STATION ADDRESS AND INSERT IT IN THE HEADER 


MoV 
ADD 
MOVB 
MOV 


THE 


#LOOPB. R1 


50011$ 
#125125, SCRTCH 
SCRTCH, (R1)+ 


R1, #ELOOPB 
50012$ 


END TO ASSURE THAT THE FINAL BYTE |S NOT NULL (0) 


RELOOPB. R1 
Ri 
#1, (R1) 


#PTABLE.R1 
#5.R1 
(R1),LOOSTA 
(SP)4.R1 


INSERT LOOP DATA TYPE 


MOVB 


#OSOP. LOOPB 


“SET MESSAGE NUMBER 


MOVB 


#1,LOOPN 


[COMPUTE AND INSERT HEADER CPC 


? 


#1%2,25 

RS, -(SP) 

#6, -(R5) 
RLOOPH, -( RS) 
PC, CRC 
(SP)+,R5 
(R5)+,LCRCH 


/COMPUTE AND INSERT DATA CRC 


“SET UP BUFFER POINTER AND SIZE.... SEND MESSAGE 


#1%2,R5 

RS, - (SP) 
#256. ,-(R5) 
#LOOPB, -(R5) 
PC, CRC 
(SP)+,R5 
(R5)+, LCRCO 


) 


SEQ 0064 | 


“et, 


OUTERR 


DZDPGA. 


MACY11 
Pil 


020516 


020520 
020520 


020524 
020526 
020530 
020534 
020540 
020542 
020544 
020550 
020554 
020556 
020560 
020562 
020564 
020566 
020570 
020572 
020574 


020574 
020600 
020604 


020610 
020612 


30(1046) 
21-NOV-77 


012767 
012767 
004 767 


103012 


004072 
104006 


004767 


a 


103023 
010546 
012745 
004767 
012605 
010546 
012745 
004767 
012605 
104463 
000063 
00332¢ 
004072 
104006 
104032 
000134 


162705 
004767 
012567 


103012 
010546 


4 


22-NOV-77 08:02 PAGE 187-8 
14: 58 , 


021056 
000412 
173736 


000000 
176112 


177122 


000000 
176056 


000002 
176042 


000002 
172610 
000240 


174744 
174740 


MOV #LOOPH, XBUFFER 
MOV #266. , XSIZE 
JSR PC. XMIT 


;1F ERROR OCCURRED... INSERT THE ERROR INTO TABLE (MANUF. TESTS ONLY). 


+REPORT THE ERROR, LOOP IF ENABLED 


BCC 500138 
Mov RS, - (SP) 
MoV #0, -(R5) 
JSR PC. INSERR 
MOV (SP)+,R5 
TRAP es 


“WORD MSG51 
“WORD APRFAUO 


| ENT CSCLP1 
SEND ACK'S TO TERMINAL UNTIL IT RESPONDS 
500145: 


5001 3S: 


JSR PC, OUTREP 


[IF AN ERROR OCCURS... INSERT IN TABLE (MAN. ONLY), REPORT IT, LOOP 
;1F ENABLED - EXIT TEST IF NOT 


BCC 50015 
MOV RS, -(SP) 
MOV #0, -(R5) 


JSR PC, INSERR 
MoV (SP)+,R5 
MOV RS, - (SP) 
MOV #2, -(R5) 
JSR PC, INSERR 
MoV (SP)+,R5 
TRAP TSERCODE 
.WORD 51 
. .WORD MSG51 
* WORD AREAYO e 


ENT CSCLP1 
EMT CSEXIT 
.WORD £L10032- 
500155: & 


GET RESPONSE 

SUB #12, R5 
JSR PC, TERIN 
MOV (RS) +, LCOMP 


oF ERROR OCCURS.*.. INSERT IN TABLE (MAN. ONLY), bai IT, LOOP IF 
;ENABLED. EXIT TEST IF NOT * 


: BCC 50016$ 
Mov RS, - (SP) . 


SEQ 0065 


~_—_ = 


OUTERR 
DZDPGA. 


MACY11 
Pil 


020636 


020640 
020644 


020646 
020652 


020654 


020660 
020662 
020664 
020670 
020674 
020676 
020700 
020704 
020710 
020712 
020714 
020716 
020720 
020722 
020722 
020724 
020724 


020726 
020726 


30(1046) 
21-NOV-77 


012745 


004072 
104006 


00&767 
001725 


004767 
104064 


004767 


103020 
010546 
012745 
004767 
012605 
010546 
012745 
004767 
012605 
104463 
000063 
003326 
004610 


104006 
104005 


104001 
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000000 
175772 


000204 


000056 


171634 


000000 
175722 


000002 
175706 


Mov #0, -(RS) 
ISR PC, INSERR 
MoV (SP)4, RS 
TRAP  TSERCODE 
-WORD 51 
"WORD MSGS1 
WORD  AREAYO 
50016S: 
) ENT CS$CLP1 
REPEAT LOOP UNTIL TERMINAL SENDS LOOPBACK DATA 
“ TST LCOMP 
| BEQ 50014S 
[PROCESS THE LOOPBACK DATA 
f ISR PC, PROLOP 
ENT C$BSEG 
SREINIT THE LINK 
‘“ \ 
ISR PC, XSTRT \ 
IF ERROR OCCURS, INSERT ERROR INTO TABLE (MANUF, ONLY), REPORT ERROR, \ 
[LOOP ON REINIT IF ERROR LOOPING ENABLED... EXIT TEST IF NO LOOPING . 
: BCC 500175 % 
Mov RS, -(SP) 
Mov #0, -(R5) 
ISR PC, INSERR 
nov (SP)+, RS 
nov RS, - (SP) 
Mov #2.-(RS) 
JSR PC. INSERR 
HOV (SP)4,R5 
TRAP - TSERCODE 
WORD 51 
WORD MSG51 
WORD  AREAGI 
500175: 
EMT CSCLP1 
100005: 
ENT CSESEG 
;END OF TEST 
10032: 
ENT CSETST 


LEEEEFEEEEEESEE ESE SEE EEE EF EEE EFEE EEF E FEE E FEE Et ed FFT HEHE tet te tee 


+ 
+ 


SEQ 0066 


OUTERR 


DZ0PGA. 


MACY11 30(1046) 


Pil 


020730 
020730 
020732 
020734 


020736 
020742 
20746 


020752 


020752 


021024 


021024 
021026 
021030 


021032 
021034 
021036 
021040 
021042 
021044 


21-NOV-77 1 


010146 
010246 
010346 


012701 
012702 
016703 


121113 
001423 
011167 
011367 
010546 
012745 
004767 
012605 
104464 
000064 
003354 
004740 
012603 
012602 
012601 
000261 
000411 


005201 
005302 
005203 


005702 
001346 
012603 
012002 
012601 


021066 
000200 
161174 


164054 
164052 


000002 
175616 
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; ROUTINE TO PROCESS LOOPBACK DATA + 
+ 


; 
ZF EEFEEESEF SEES SESS SESS h Se ESE FSF t Ft F FFF FFF FF t Fst ttt ttt ttt + este ss tt 


PROLOP: 
MOV Ri, -(SP) 
Mov R2,-(SP) 
Mov R3,-(SP) 


7R1 = POINTER TO EXPECTED DATA 
[R2 = COUNT OF DATA EXPECTED 
R3 = POINTER TO DATA FROM TERMINAL 
; Mov #LOOPB, R1 
Mov #128. .R2 
nov INBUF.R3 
; CHECK DATA BYTE-BY-BYTE. .. 
50002: 


ile ERROR... INSERT ERROR INTO TABLE (MANUF. ONLY), REPORT ERROR 
; CINCLUDING RECEIVED/EXPECTED BYTES). RETURN WITH ERROR 


CMPB (R1), (RI) 
BEQ 500035 
MOV (R1),A52A 
MoV (R3),AS2B 
MOV RS, - (SP) 
Mov #2, -(R5) 
JSR PC, INSERR 


MoV (SP )+,R5 
TRAP TSERCODE 
WORD 52 
.WORD MNSG52 
-WORD AREAS2 
MOV (SP)+,R3 
MoV (SP)+,R2 
MOV (SP)+,R1 
SEC 
BR 500018 
50003$: 
; UPDATE COUNT AND POINTERS 
INC R1 
DEC R2 
INC R3 
;REPEAT UNTIL ALL DATA HAS BEEN CHECKED 
TST R2 
BNE 50002$ 
MOV (SP)+,R3 
MoV (SP)+,R2 
MoV (SP)+,R1 
500008: 


SEQ 0067 


OUTERR MACY11 30(1046) 22-NOV-77 08:02 PAGE 187-11 
DZDPGA. P11 21-NOV-77 14: 58 SEQ 0068 


(2) 021044 000241 
(3) 021046 500015: 
(2) 021046 000207 RTS PC 


8609 ; LOOPBACK MESSAGE AREA 


8611 021050 000000 LCOMP: 0 . 
8612 021052 121057 LOOPNG: . +100005 
8613 021054 000410 ELOOPB-2- 
8614 021056 220 000 201 LOOPH: . BYTE OLE.O,201,0 
021061 000 


8615 021062 000 LOOPN: . BYTE 0 
8616 021063 000 LOOSTA: .BYTE 0 
S61? 021064 000000 LCRCH: 0 

8618 021066 000200 LOOPB: .BLKK 128. 
8619 021466 ELOOPE: 

8629 O2146e6 000000 LCRCD: 0 


OUTERR 


DZDPGA. 


8913 


MACY11 30(1046) 
21-NOV-77 


Pil 


021470 
021472 


021534 
021536 


021536 
021544 
021552 
021554 
021562 
021570 
021571 
021576 
021604 
021612 
021614 
021622 
021630 
021636 


021640 
021642 
021644 
021646 
021650 
021652 
021654 
021656 
021660 


021662 
021662 


000022 
000031 
021536 
000000 
177776 
001031 
021554 
000000 
000400 
002032 
021571 
000340 
000000 
000007 
002032 
021614 
177400 
co0000 
000377 


052504 


021640 


003010 
000032 
021662 
177777 
000000 
077777 
001130 
021731 
177777 
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020120 
051505 


020120 
051117 


050125 
050040 
052111 


046522 
040440 
051523 


042101 
035123 


042526 
020072 


041040 
044522 
035131 


047111 
042104 
020072 


L10033: 
DEVICE: 


VECTOR: 


PRIOR: 


HARDWARE PARAMETER CODING 
. WORD L10033-LSHARD/2 
.WORD TSCODE 


“WORD TSHILIM 


.ASCIZ /DUP ADDRESS: 7 
.ASCIZ /DUP VECTOR: 7 


.ASCIZ /DUP BUS PRIORITY: 7 


STATION:. ASCIZ “TERMINAL ADDRESS: / 


L10034: 


047510 020127 040515 ALINIT: 


. EVEN 


SOFTWARE PARAMETER CODING 


WORD L10034-LSSOFT/2 
.WORD TSCODE 

.WORD = ALIMIT 

.WORD = 177777 

.WORD TSLOLIM 
.WORD TSHILIM 

.WORD TSCODE 

.WORD PATTRN 

.WORD 177777 


-ASC'Z ZHOW MANY INITIATE TRIES BEFORE ABORT? « 


' 
— | 


SEQ 0069 


OUTERR 


DZDPGA. 


8968 


MACY11 30(1046) 


Pil 


021670 


021766 


021774 


071776 


21-NOV-77 


054516 


052101 


052674 


C72000 
000200 
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O44440 
052101 
042511 
047506 
047502 

000 


042523 
055040 
020123 
047514 
045503 
037501 


044516 
020105 
020123 
042522 
052122 


040440 
051105 
047506 
050117 
042040 
000040 


PATTRN: .ASCIZ /USE ALL ZERO'S FOR LOOPBACK DATA? / 


. EVEN 


. EVEN 
LSLAST: : 
. REQ DOCTOR. P11 400, 1066 
_ TITLE POP-11 DIAGNOSTIC SUPERVISOR 
END. SUPV=. +2 
. 271776 
-WORD O 
XiXis. 
-END 200 


———+ 


SEQ 0070 


i 


G*6 
OUTERR MACY11 30(1046) 22-NOV-77 08:02 PAGE 189 


DOCTOR. P11 07-OCT-77 13:48 SYMBOL TABLE SEQ 0071 | 
{ 
a = 000000 BITO6 = 000100 G CODE 011454 G C$Q10 = 000377 EF10 = 000012 G 
ABOFLA 022246 G B1T07 = 000200 G COMNTA 045326 CSRDBU= 000007 EF11 = 000013 G 
ABOPAS 022160 G BITO8 = 000400 G CONTCL 051110 G CSREFG= 000050 EF1iZ2 = 000014 G 
ABORT 002106 BITO9 = 001000 G CRC 016620 CSREQT= OOOO4E EF1i3 = 000015 G 
ABO.FM 025122 BiT1 = 000002 G CRCTAB 017074 CSRESE= 000033 EF14 = 000016 G 
ACK = 000001 B1T10 = 002000 G CRLF 041424 CSREVI= 000001 EF15 = 000017 G | 
ALIMIT 021662 BIT11 = 004000 G CTS = 020000 CS$RPT = 000025 EF16 = 000020 G 
ALLOC 042712 BiT12 = 010000 G CURR. T 022174 G CSSEFG= 000047 ELOOPB 021466 
AREACO 003510 G BiT13 = 020000 G CS$AAD 034530 CSSPRI= 000041 EMOMG1 020160 
AREAO1 003570 G BiT14 = 040000 G CSARE 034542 CS$SVEC= 000037 EMOMG2 020170 
AREAOZ 003572 G BIT15 = 100000 G CSARK 035360 CSTPRI= 000013 EMT. TR 022252 G 
AREAOS 003674 G BiIT2 = O00004 G CSAAL 035470 CSUNBU= 000031 END. OF 030600 
AREAOY 003726 G BIT3 = 000010 G CSABRT= 000021 CSWTM = 000026 END. SU= 052674 
AREAI1 OO4030 G BiITY = 000020 G CSADR = 000020 CSWTU = 000027 ENQ = 000005 
AREAZ1 004066 G BITS = OO00040 G C$AU = 000054 = 177776 EOMSG 002124 
AREAZZ 004070 G BiTé = 000100 G CSBRK = 000022 DOSTRT= 000000 EOP.CH 051352 G 
AREAZ3 004072 G BIT? = 000200 G CSBSEG= 000004 DOSTRY 012772 EOP.FM 025136 
AREAZY 004072 BITS = 000400 G C$BSUB= 000002 DECMSG 041236 EOP. IN 027210 
AREAZ6 004264 G BiT9 = 001000 G CSBUFF= 000030 DEVICE 021536 ERRFOR 035546 
AREASO 004266 G BLO. HW 027712 CSCEFG= 000046 DEVINi 014742 ERRHAN 034562 
AREAS1 004266 BLOCK Q45046 CSCLEA= 000012 DEVPRI 002200 ERR. HR 035340 
AREAYO 004072 BNC 003462 CS$CLP1= 000006 DIAG. T 022254 G ERR. SF 035344 
AREAY1 003726 BSARB 031314 CSCVEC= 000036 DLE = 000220 ERRIFO 035632 
AREAY2 003674 BSARF 031226 CSDCLN= 000044 DPDVD 052040 G ESC. PC 034554 
AREAY3 003726 = 000004 C$D00U= 000053 DPMUL 051726 G EXPINP 002130 
AREASZ2 004740 G CALLPC= 000022 CSDORPT= 000024 OTR = 000002 Fil 015420 
ARERGO 004532 G CALLPS= 000024 c$DU = 000055 DUNIT. 022164 G FILL 042072 
AREAG1 004610 G CALLSP= 000026 CSEDIT= 000006 DUPMSK 002220 G FILL.C 000204 G 
AREA7O 005042 G CALLTC= 000630 CSERDF= 000002 DUPREG 002224 G FLAGS 022216 G 
AREA71 O05044 G CAL.CL 047430 CSERHR= 000003 DUPS = 000001 FLAGTA 045244 
027032 CAL. TI! 047466 G CSERSF= 000001 DVC.FT 035330 FLAG. | 027256 
ASARX 027046 CHKLUP 031330 CSERSO= 000004 DSAAG 036200 FLA. SE 045212 
ASARY 027054 CHKREP 014036 CSESCA= 000010 DSAAH 036216 FLG.MA 027216 
ASAAZ 027070 CHKSTR 043254 CSESEG= 000005 DSAA| 040770 FLLCNT 015414 
ASABA 8 027100 CHKTTY 041342 CSESUB= 000003 DSARJ 040774 FORM. T 035642 
A0Z2A 003624 CHK.FO 023540 CSETST= 000001 DSAAK 041012 FORMOO 003536 
A028 003626 CHK. MA 027470 CS$EXIT= 000032 DSAAL 041030 FORMOZ 003630 
AOYEX 003762 CHK.PC 034556 CSGMAN= 000043 DSAAM 041040 FORMOY 003764 
AOYRC § 003760 CHK. SH 023262 CSGPHR= 000042 E = 177774 FORM23 004166 
AS2A 005036 CHRCNT 042574 CS$GPRi= 000040 EF. CON= 000036 G FORM30 004420 
AS2B 005040 CH. FLA 027172 C$GTIM= 000052 EF. NEW= 000035 G FORM4YO 004206 
B = 000002 CH.PAS 027214 CSINIT= 000011 EF. PWR= 000034 G FORM52 004772 
BAPNT 002160 CLEAR 030612 CSINLP= 000020 EF. RES= 000037 G FORM60 004554 
BASIZE 002162 CLKACC 022156 G CSKWOF= 000035 EF. STA= QOOO4O G FORM61 004702 
BGN. SU= 021774 CLKBFR 047432 CSKWON= 000034 EFO1 = Q00001 G FREE 043150 
BINMSG 041222 CLKCNT 022154 G C$LO00P= 000100 EFO2 = 000002 G FRM3OA 004442 
BITO = 000001 G CLKRES 051030 G CSMANI= 000051 EFO3 = Q00003 G FRM3OB 004465 
BiTOO = 000001 G CLKSER 051330 G CSMSG = 000023 EFOY = QO00004 G FRM30C 004507 
BiTO1 = 000002 G CLKSON 022220 G CSPNTB= 000014 EFOS = 000005 G FS$ = O00C001 
B!TOZ2 = 000004 G CLK. SE 027272 CSPNTF= 000017 EFO6 = 000006 G FSAU = 000015 
BiTO3 = 000010 G CLR MA 027546 CSPNTS= 000016 EFO? = 000007 G FSBGN = 000040 
B1TO4 = 000020 G CNTFLG 015434 CSPNTX= 000015 EFO8 = 000010 G FSCLEA= 000007 
BITOS = 000040 G CNVT 045506 CSPOIN= 000040 EFO9 = 000011 G FS0U = 000016 


OUTERR MACY11 3011046) 


DOCTOR. P11 


FSEND 
F SHARD 
FSHW 

FSINIT 


4 
ead 
= 
w” 
o 
onnnonnnnnnnnn ie 


GSHIL I= 


000041 
000004 
000013 
000006 
000050 
000000 
000011 
000017 
000012 
000003 
000005 
000010 
000002 
000014 
000001 
042576 
041302 
044666 
012774 
036360 
04 3662 
04 3432 
002100 
012052 
= 000400 
000002 
= 000001 
000000 
000400 
000376 
000001 
000002 
000000 
000140 
000000 
000040 
000200 
000120 
000020 
000100 
000004 
000010 
026754 
026634 
022206 
002000 
026574 
000020 
177400 
046034 
002114 
002146 
002116 


07-OCT-77 


ININIT 


026606 
026002 


a 
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022176 G 


L10006 


047334 


004066 


OOOOOOOOOMOOHOOMOOMOHOOHOONOOOMOOOOOOOOOOMOOOOOMOOMOGM 


Li0007 


004070 


ao oo 


ong 


oe 


MSG24 002762 
MSG25 003025 
MSG26 003062 
MSG30 003117 
MSG31 003147 
MSG4YO 002637 
MSG41 002411 
MSG4Y2 002345 
MSG4Y3 003224 
MSG4Y5 003243 
MSG50 003271 
MSG51 003326 
MSG52 003354 
MSG70 003367 
MSG71 003422 
MSG72 003464 


PARSES 044740 
PAR. LA 040732 
PASCNT 002122 


o 


SE@ 0072 


OUTERR MACY11 30(104%6) A a" ee -77 08:02 PAGE 189-2 


DOCTOR. P11 07-OCT-77 i SYMBOL TABLE SEG 0073 





PATTER 
PATTRN 
PRINTC 
PRINTF 
PRIOR 
PR100 
PRIO1 
PR102 
PRIOS 
PR 104 
PRIOS 
PR106 
PR1Q7 
PRNTST 
PROBUF 
PROLOP 
PRO. CM 
PTABLE 
PTAB. S 
PTCODE 
PTEND 


011444 
021731 
042552 
046054 
021571 
000000 
000040 
000100 


015442 


Oooooomom 


aon 


RQUEUE 
RSTACK 


015436 


ao 


Oog 


TSTAGL= 


035320 


o oo 


TSTAGN= 


KSFALS= 


010035 
000000 
000002 


000000 
000049 


on om 


a 


XSOFFS= 
XSTRUE= 


STAGNU= 


000400 


060004 


QUTERPR MACY11 30(104%6) 


DOCTOR. P14 07-OCT-77 
STEMP = 000300 S$S$BYTE= 000402 
$TSKO = 050002 S$SCASE= 000000 
$TSK1 = 050003 $$0ST = 000003 
STSKZ = 050006 S$SELOC= 000402 
STSKZ = 050033 SSERFL= 000000 
$sAPGC= 000000 $SFLAG= 000001 

ABE. 072000 000 

tPPORS DETECTED: O 

OIOF GR=OZOPGA 

CUN-TIME- 92 96 .9 SECONDS 

PLN-7 ME PRTIG. 140219027. 3 

“OPE USEC Ter '63 PAGES) 
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SSFRONM= 


SSRTNi= 


000000 
021034 
000000 
177777 
000001 
050000 


$SRTNZ= 050001 


$$TGS 
$$TO0 = 000001 


$$$TAG= 050000 
, = 072000 


; 
errant NTN 


